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LỜI NÓI ĐẦU 


Kiểm thức về ứng dụng máy vị tính mong hoại động văn hóa - kinh tế - kỹ 
thuật cho mọi ngành nghề, đến ngày nay, CÓ thể ví như biển cả mênh mông. 
Biển của thế giới không thay đổi, không "mở rộng" thêm, nhưng biển của ng 
dụng máy tính lại mở rộng "hàng ngày" † 


Nếu ví ứng dụng máy ví tính cho mọi ngành nghề như biển cả mênh 
mông, thì ta có thể coi phạm vì ứng dụng cho một chuyên ngành như vùng 
biến của một quốc gia. 

Hiện có rất nhiều phần mềm, sách hướng dân sứ dụng máy vỉ tính theo 
Windows, Excel, AoCAD, Softdesk, SAP... đó là những hướng dân “cho 
mọi ngành nghề". Thực tế một kỹ sư chuyên ngành, chỉ có thể đọc. hiểu và 
vận dụng một số rất nhỏ các hưỡng dẫn đó (rong một tập sách dày hàng 
trăm trang). Sách hướng dẫn vận dụng cụ thể cho một chuyên ngành, như 
thiết kế - thi công đường , thì "hình nhĩ còn Ít Có. 


Mội kỹ sư câu đường sử dụng máy vì tính thường sặp hai loại việc: 


- Lên bản vẽ thiết kế bình đỗ, cắt dọc, cắt ngang đường: có thể dùng phần 
mêm Sofidesk hoặc NOVA ( của Công ty Hài Hòa). 


- Tính kết cấu cầu, cống bằng phần mềm SÁP. Tính ổn định mái dốc bằng 
Bishop. Ngoài ra, còn có mội số phần mềm khác do mội số cơ quan “tự 
biên" về tính toán độ lún, cải tạo nên đất yếu v.v..., những chưa hẳn được 
thừa nhận và phổ cập rộng rãi. 

Thực tế cũng cho thấy là: một kỹ sư "quen" sử dụng phần mềm tính toán 
sẽ có thể "quên" nguyên lý tính toán, công thức tính toán. Mà các phần mêm 
trên không phải lúc nào cũng có sẵn, có đủ để cài đặt vào mọi máy tính (ở 
một công ty thiết kế hay trong một công I'HỜnG thì công). Ấy là chưa kể học 
cách sử dụng cũng không phải là dơn giản, Chính vì vậy đã có nhận xéi: 
máy vỉ tính giúp Kỹ sư “làm việc nhanh" nhưng Cũng "làm lười, làm đốt” việc 
học tập trí thức mới của kỹ sư ! 


Cách khắc phục có thể là: các kỹ sư nên nắm vững các nguyên lý tính 
toán, để ở mọi nơi, mọi lúc, có thể dựa vào Excel, Pascal, Visual Basic... "Hf 
biên tự diễn" các chương trình con phục vụ cho công việc, và theo các 
nguyên lý tính toán mà mình cho là hợp lý. 


Tác giả viết cuốn sách này nhằm "gợi ý" cho phương pháp làm việc trên. 


Một số bài toán lập trình giới thiệu chỉ bó hẹp Trong phạm vì thiết kế ổn 
dịnh nên đường, thiết kế thoát nước. 


Sự cải tiến về máy vì tính, về chương trình phân mêm (Windows, Excel, 
AutoCad, SAP...) thay đổi hàng tháng, hàng năm. Do đó có e ngại: viết về 
máy vì tính vừa xong thì đã lạc hậu rồi ! Tuy vậy, cũng có thực tế là: các 
phiên bản (version) sau của máy vì tính thường theo nguyên tắc kế thừa 
phiên bản trước. Do đó ta có thể yên tâm: những điều viết ra theo phiên bản 
trước vẫn giúp ta ứng dụng theo phiên bản sau, đúng như nguyên tắc "ôn cố 
tri tân”. 

Cuốn sách này được biên soạn theo trình tự: giới thiệu lý thuyết chung, ví 
dụ tính toán bằng tay, sau đó lập chương trình tính toán Pascal để mình 
họa, đối chiếu. 


Ngoài ra, trong phần Phụ lục có giới thiệu sơ lược cách sử dụng phần 
mềm NOVA và SAP 2000. 

Do trình độ có hạn, những chương trình viết ra chỉ ở mức đơn giản. Chắc 
rằng các bạn đọc, đặc biệt là các kỹ sư trẻ, còn có nhiều cách lập trình khác 
hay hơn nhiều. 

Mong độc giả góp ý, lượng thứ cho các thiếu sót khó tránh khỏi khi viết 
tập sách này. 


Tác giả 


Chương Ì 
CƠ CẤU - ỨNG DỤNG CHUNG MÁY VI TÍNH 


1-1. LỊCH SỬPHÁT TRIỂN MÁY TÍNH 


1) Khái quát chung 


Ở Việt Nam, từ những năm 1960 - 1970 còn dùng “máy tính” là thước 
Logarit. Năm 1970 - 1980 là máy tính quay tay (như máy NISA của Tiệp); 
một số cơ quan thiết kế còn dùng cả “bàn gẩy” của Trung Quốc. Mãi đến 
những năm 90, máy vi tính cá nhân (PC- Personal Computer) mới từng bước 
thâm nhập ứng dụng vào Việt Nam, lúc đầu là máy 286 màn hình đen trắng, 
sau đến 386 màn hình màu. Tháng 11 năm 1997 bắt đầu kết nối Internet. 

Trên thế giới, chặng đường phát triển của máy vi tính, từ bước đi dò dẫm 
ban đầu khá sớm, nhưng cũng rất gian khổ. Từ 1820, nhà toán học người 
Anh Charles Babgage đã thiết kế chiếc máy tính đầu tiên, với ý tưởng thực 
hiện các phép tính số học, nhưng chưa hoàn thành. Đến 1936, một nhà toán 
học Anh khác, Alan Turing mới chế tạo thành công chiếc máy tính đầu tiên, 
có tên gọi “Colossus”, được dùng để phá mật mã của Đức và giữ bí mật cho 
đến năm 1970. : 

Sự đóng góp của Mỹ vào lĩnh vực máy tính điện tử đầu tiên là máy Matk 
1 do Đại học Tổng hợp Harvard và hãng 1BM thiết kế từ năm 1930, dùng rơ 
le chuyển mạch điện thay thế cho cơ cấu chuyển mạch cơ khí. Máy này được 
dùng để tính đường đạn cho vũ khí của Hải quân Mỹ. 

Đến 1940, bắt đầu hình thành một “cơn sốt” chế tạo máy tính giữa các nhà 
khoa học ở cả 2 bên bờ Đại Tây Dương. Năm 1945, các kỹ sư Mỹ Mauchly và 
J. Presper Eckert cùng trường Đại học Pennsylvania (Philadelphia) đã chế tạo 
thành công chiếc máy tính ENIAC (Electrolic Numerical Integrator And 
Computer), một “con quái vật” gồm 18.000 chiếc bóng chân không và nặng 
tới 27 tấn! 


Có lẽ vì vậy, một trong những con người “thông minh” như ông Thomas 
Watson, Chủ tịch hãng IBM năm 1943 đã phát biểu: “7ó: nghĩ rằng thị 
trường thế giới chỉ cẩn khoảng 5 chiếc máy vì tíni"! Cau nói đó đã đi vào 
lịch sử như một trong những đánh giá sai lầm lớn nhất của mọi thời đại. 

Tuy vậy, nhiều nhà khoa học, công ty kinh doanh vẫn sớm nhận ra tác 
dụng to lớn, tương lai phát triển của máy tính và đưa máy tính vào công việc 
kinh doanh. Hãng IBM đã nhanh chóng nắm được vai trò độc tôn sau khi 
chế tạo thành công những chiếc máy tính nhỏ hơn và có tốc độ nhanh hơn. 
Năm 1981, hãng này bước vào địa hạt máy tính cá nhân (PC), tạo ra một thị 
trường mà IBM được coi là tiêu chuẩn không chính thức. 


Máy tính cá nhân chỉ thực sự phổ cập khi Bill Gates, từ 1975 thành lập 
công ty Microsoft và bất đầu bán những phần mềm lập trình cho loại 
computer rẻ tiền Altair. 


Tuy vậy, sự phát triển nhanh chóng máy tính cá nhân cũng là “ngoài 
sức tướng tượng” của không. ít người, trong đó có ông Ken Oisen- Chủ 
tịch kiêm người sáng lập ra hãng Digital Equipment Corp, năm 1977 đã 
phát biểu: “Chẳng có lý do nào khiến người ta muốn có một chiếc computer 
trong nhà”, 


Trong khi đó, ngay từ cuối thập kỷ 80, bất nguồn từ mạng máy tính nội 
bộ của quân đội Mỹ, mạng Internet đã ra đời và phát triển nhanh chóng trên 
toàn thế giới. Chỉ trong vòng I0 năm, Internet tạo nên một thế giới huy 
hoàng không bị chia cắt, làm đảo lộn cuộc sống của nhân loại, cuốn hàng tỷ 
người sinh hoạt và làm việc theo thói quen mới. 

Nhưng dầu sao cũng còn một “thế giới khác” của các nước chưa phát 
triển thuộc khu vực rộng lớn trên trái đất như Châu Phi, Nam Á... Cuộc cách 
mạng thông tin của Internet chưa “thấm tới” mảnh đất này. Các nước đó đã 
nghèo sẽ tiếp tục nghèo, còn các nứợc giàu tiếp tục giàu hơn. Cuộc chiến thu 
hẹp khoảng cách giàu nghèo nằm trong cuộc chiến nắm bắt thông tin. Ai 
nắm được thông tin, người đó chiến thắng. 


2) Cấu tạo máy vi tính cá nhân (PC — Personal Computer) 


Thuật ngữ “máy tính” quen dùng hiện nay thực chất là chỉ loại máy tính 
số (Digital Computer). Máy tính cá nhân PC, quen gọi là máy ví tính, là máy 
dùng cho một người. 
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a. Cấu tạo chung của máy vi tính 


Hình 1-1 giới thiệu khái quát các thành phần cấu tạo chính một máy vi 
tính: hộp máy PC chứa bộ vi xử lý (nên còn gọi là hộp CPU), ổ đĩa cứng, đĩa 
mềm, các mạch ghép nối...Bàn phím (keyboard). Màn hình (monitor). 
Chuột (mouse). Máy In (prier). 


Hiện nay, còn dùng nhiều thiết bị ngoại vi khác nữa như: loa nghe 
nhạc, joystick (bàn phím trò chơi), modem nối Internet, webcam (ghi hình 
qua mạng)... 


Các thành phần hữu hình trên được gọi chung là phân cứng. 


Để người sử dụng làm việc được với PC, cần phải có các phần mềm, là 
các chương trình lập sẵn để người sử dụng dùng để điều khiển máy tính hoạt 
động theo yêu cầu mong muốn. Phần mềm quan trọng nhất là hệ điều hành 
(như DOS, Windows, Macintosh, Linux...). Sau đó đến các phần mềm ứng 
dụng khác như Office (gồm Word, Excel, thường gọi là phần mềm văn 
phòng), Norton Commander (NC), Pascal (TP- lập trình), Autocad (vẽ kỹ 
thuật), Softdesk (thiết kế kiến trúc, cầu đường), SAP (tính kết cấu), Lạc Việt 
từ điển, Antivirus... 
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Hình I-1: Cấu tạo chính một máy vi tính. 


Hình 1-2 giới thiệu sơ đồ khối chức năng một hệ thống máy vi tính, gồm 
các khối như sau: 
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CÁC THIẾT BỊ NGOẠI VI 


Hình 1-2: Sơ đồ khối chức năng của một hệ thống máy vi tính. 

- Khối xử lý trung tâm CPU (cemiral processing unir): dùng để thu thập 
và cho chạy các lệnh. CPU máy PC thường cấu tạo một chíp vi mạch gọi là 
bộ ví xử lý tIP (microprocessor). Có thể nói đây là quả tìm của máy vì tính. 
Đặc trưng kỹ thuật điển hình của bộ vi xử lý là tốc độ truyền dữ liệu, đo 
bằng MHz (mê ga hec). 

Bộ vi xử lý quen thuộc nhất là Pentium, đã được cải tiến không ngừng: 
năm 1997 là Pentiumll có tốc độ 266 MHz, tháng 2-1999 ra đời Pentium HĨ 
có tốc độ 500 MHz, đến tháng 11-2003 đã lên tới 3,5 GigaHz (Pentium IV). 

- Bộ nhớ (memory): dùng để lưu trữ các lệnh và dữ liệu cho bộ xử lý. 
Gồm 2 loại: bộ nhớ trong (được tạo bởi các vi mạch nhớ bán dẫn, điển hình 
nhất là ổ đĩa cứng — hard disk) và bộ nhớ ngoài (được tạo bởi các môi trường 
nhớ khác như đĩa từ, đĩa quang). 

Thông số kỹ thuật của bộ nhớ đo bằng Mbyte hoặc Gigabyte. Dung lượng 
nhớ này cũng không ngừng được cải tiến: năm 1997 ổ đĩa cứng một máy PC 
mới phổ cập 2 — 3 Gigabyte thì đến 2003 đã phỏ cập 20 ~ 30 Gigabyte. Ổ đĩa 
mềm 3,5 inches quen dùng có dung lượng 1,2 Mbyte, nhưng ổ CDRom có 
dung lượng tới 600 Mbyte. 
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- Các thiết bị ngoại vi: gồm các thiết bị vào ra (1/O) dùng để nhập hoặc 
xuất các dữ liệu. Bàn phím, chuột, máy quét... thuộc loại thiết bị vào. Màn 
hình, máy in ... thuộc loại thiết bị ra. Các ổ đĩa ở bộ nhớ ngoài có thể coi là 
thiết bị vừa vào vừa ra. 

Các thiết bị ngoại vi được liên hệ với CPU qua các mạch ghép nối vàolra 
(/O — in/out interface). Mạch này cho phép nối 2 bộ phận độc lập nhằm làm 
cho chúng có thể tương hợp và thông tin được vơi nhau. 


- Buy hệ thống: là một tập hợp các đường dây mà qua đó CPU có thể liên 
kết với các bộ phận khác. 


Bộ nhớ thường được chia thành từng ô nhớ nhỏ như từ hay by/e 
(1 byte = 8bit, 1 từ = 2 byte). Mỗi ô nhớ đó cũng như một thiết bị vào/ra 
được gán cho một địa chỉ (address) để CPU có thể định vị khi cần đọc hay 
viết dữ liệu lên nó. 


Máy tính phải có một mạch tạo các xung điện gọi là đồng hồ hệ thống 
(system clock) để duy trì hoạt động và đồng bộ hoá CPU cùng các bộ phận 
liên quan với nhau. Tần số đồng hồ hệ thống này quyết định tốc độ hoạt 
động của CPU. 

Toàn bộ hệ thống máy tính hoạt động nhờ nguồn điện xoay chiều (220V) 
hoặc acquy. Do nhiều thiết bị ngoại vi cần nối trực tiếp vào ổ cắm điện nên 

' hệ thống dây cắm khá phức tạp, cần bố trí khoa học, ổ cắm vững chắc để 
không xảy ra sự cố làm mất đữ liệu. 


Quá trình sử dụng PC có thể theo trình tự khái quất như sau: mở máy — 
vào phần mềm muốn sử dụng (thí dụ Excel), lập một bảng tính toán, save - 
đặt tên file để lưu giữ vào ổ cứng, hoàn thành thoát ra khỏi excel, tắt máy. 


Do đó, “bài học đầu tiên” khi sử dụng máy vi tính luôn là: mở máy, tất 
máy, vào phần mềm ứng dụng, thoát ra khỏi phần mềm. 

Máy vi tính giúp 1a tăng nhanh tốc độ làm việc rất nhiều, nhưng cũng hay 
hỏng vật, tạo nên nguy cơ khó chịu nhất, đáng tiếc nhất là mất dữ liệu mà ta 
đã dày công thiết lập, lưu trữ qua hàng tháng, hàng năm. Cho nên có người 
đã nhận xét: máy vi tính “đồng đảnh như một cô gái đẹp vậy !” 

b. Cấu hình bên trong máy vi tính 

Hình 1-3 giới thiệu khái quát các cấu hình bên trong một hộp máy PC nối 
với các thiết bị ngoại vi và máy PC khác trong mạng. 
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Hình 1-3: Sơ đồ khối của một PC với các thiết bị ngoại vì 
Tóm tắt các cấu tạo trong máy như sau; 
- Bộ vi xử lý 80 x 86 
~ Bản mạch chính (Mainboard) 
- Ổ đĩa cứng (HDD - Hard Disk Drive) 
- Ổ đĩa mềm (FDD - Floppy Disk Drive) 
- Ổ đĩa quang (CDRom ~ Compact Disk Read Only Memory) 
- Chíp nhớ tạm thời RAM (Random Access Memory) 
- Mạch ghép nối các thiết bị vào ra Bus 
- Các khe cắm mở rộng (Expansion Slots) 
3) Mạng máy vi tính 
Có 2 loại 


- Mạng rộng (WAN ~ Wide Area Network): là mạng nối nhiều mạng cục 
bộ LAN trong phạm vi một tính hay một nước. Internet là mạng liên kết toàn 
thế giới, giứp ta truy nhập, trao đổi số liệu với mọi người trên thế giới. Một 
dạng trao đổi phổ thông nhất là thư điện tử E-mail. 
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- Mạng cục bộ (LAN - Local Area Nenwork): dùng trong một phạm vị hẹp 
(như một cơ quan ), xem hình I-4. Trung tâm của LAN là một máy chính gọi 
là máy chủ (server). Máy này quản lý tất cả các dữ liệu chung cho toàn các 
nút mạng. Qua các đầu nối, máy chủ nối với các máy tính khác (được gọi là 
các trạm — workstation) hoặc các thiết bị ngoại vi như máy in, modem... 





Hình 1-4: Mạng cục bộ LAN 
Mỗi bản mạch ghép nối mạng có một chíp vào/ra trong đó có bộ nhớ đệm 
để lưu trữ tạm thời các thông tin vào/ra. Bản mạch này được cắm vào các 
khe cắm mở rộng của mỗi máy trên mạng, như sơ đồ hình 1-5. 





PO1 







Chịp vào¡ra _—= Ỉ B 
Ghép nối mạng H] 
Bộ nhớ đệm ] —= 














Hình 1-5: Bản mạch ghép nối mạng 


ñ 


1-2. ỨNG DỤNG MÁY VI TÍNH 


Ù) Ứng dụng chung 

Ứng dụng máy ví tính trong hoạt động xã hội hiện nay rất phong phú, bao 
gồm mọi quốc gia, mọi ngành nghề, mọi thời gian. Khái quát như sau: 

- Đơn giản phổ thông nhất là ứng dụng trong công tác văn phòng 
(Word, Excel...): lập các văn bản, tính toán số liệu. thống kê xử lý số liệu 
trong Excel... 

- Đồ hoa: lập các bản vẽ trang trí cũng như thiết kế kỹ thuật. Trong thiết 
kế kiến trúc, với ứng dụng 3D cho phép tạo các bản vẽ phối cảnh rất nhanh 
và sinh động 

- Giải trí đa phương tiện (Multimedia): nghe nhạc, xem phim, chơi 
games, chat, gấp mặt qua mạng với thiết bị webcam... 

- Lưu trữ, trao đổi đữ liệu qua mạng Internet, E-mail... 

~ Thương mại điện tử: Kinh doanh, quảng cáo qua mạng 

- Có thể lập cả “chính phủ điện tử” 

Nhưng bao trùm lên tất cả, là công việc lập trình để có các phần mềm 
phục vụ cho các ứng dụng trên. 

2) Phần mềm 


Như đã nêu ở trên, phần mềm (Software) là thành phần kết nối người sử 
dụng với máy vi tính, trong đó quan trọng nhất là hệ điều hành. Sau đến các 
phần mềm ứng dụng khác. 

Hệ điều hành là chương trình điều khiến chủ đạo đối với một máy tính, 
dùng để quản lý các chức năng nội trú của máy tính, và cung cấp những 
phương tiện để kiểm soát các hoạt động của máy đó. Những hệ điều hành 
máy tính cá nhân phổ biến nhất hiện nay gồm có MS-DOS, Microsoft 
Windows, Macintosh... 


Khái quát chưng như sau: 
a. MS-DOS (Microsoft Disk Operdiion System) 


Hệ điều hành tiêu chuẩn một người sử dụng của các máy tính IBM và 
tương thích IBM, ra đời vào năm 1981, MS-DOS (Microsoft Disk Operating 
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System) đã được hãng IBM đưa ra tiếp thị với tên gọi PC-DOS; hai hệ này 
hầu như không thể phân biệt lẫn nhau. MS-DOS có nguồn gốc trong CP/M - 
_hệ điều hành cho các máy tính 9 bit phổ biến trong những năm cuối 1970. 
Phiên bản nguyên thuỷ mà về sau trở thành MS-DOS là do một hãng nhỏ ở 
S%eattle biên soạn với mục đích thực nghiệm. Vì Microsoft nhận hợp đồng 
biên soạn cho IBM một hệ điều hành để dùng với máy tính IBP-PC nên 
Microsoft đã mua lại và phát triển chương trình đó. MS-DOS là một hệ điều 
hành bằng các dòng lệnh, nó yêu cầu bạn phải đưa vào các lệnh, các biến, và 
các cú pháp mới sử dụng thành công MS-DOS. Tuy nhiên, sau khi hiểu các 
lệnh MS-DOS, bạn có thể đạt được trình độ điều khiển cao hơn thông qua 
các khả năng của hệ điều hành - đó là việc lập các thuộc tính tệp, tạo ra các 
tệp bó thực hiện tự động, và xây dựng các thủ tục ghi dự phòng bán tự động. 
Cùng với khả năng này, bạn cũng có sắn các trình tiện ích rất tốt giúp bạn 
tránh đùng DOS bằng cách kết hợp các nhiệm vụ đó trong một giao diện 
người-máy với các trình đơn kéo xuống và các hộp hội thoại. Một hạn chế 
ngặt nghèo nhất của MS-DOS là hàng rào 640 RAM mà hệ điều hành bắt 
buộc quá trình điện toán tương thích IBM-PC phải tuân theo. Mặc dù có 
nhiều người đã chuyển sang với Windows để sử dụng các khả năng quản lý 
bộ nhớ và giao diện để dùng của nó, nhưng hàng triệu máy tính tương thích 
IBM PC loại cũ đang tồn tại không thể chạy tốt với Windows. Không nghi 
ngờ gì nữa, MS-DOS là một hệ điều hành được dùng rộng rãi nhất trên thế 
giới và có lẽ sẽ còn tồn tại trong nhiều năm nữa. 
Lời khuyên: Để có hiệu suất cao nhất với Microsoft Windows, bạn hãy 
nâng cấp lên dùng MS-DOS 6.0 - 6.2 và chạy trình tiện ích MEMMAKER 
để tận dụng hết ưu điểm của toàn bộ nhớ của hệ thống. 


b. Microsoft Windows 


Đây.-là một hệ điều hành phổ thông nhất. Windows là một môi trường cửa 
sổ và giao diện người - máy theo ứng dụng (API), nhằm bổ sung thêm các 
thao tác đa nhiệm cho DOS, và đưa vào quá trình điện toán theo quy cách 
IBM một số tính năng giao diện người - máy theo đồ hoạ của Macintosh, 
như các trình đơn kéo xuống, các kiểu chữ đa dạng, các dụng cụ văn phòng, 
và khả nãng di chuyển tài liệu từ chương trình này sang chương trình khác 
thông qua Clipboard. Vì Windows có tất cá các chức năng cần thiết cho việc 
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bổ sung thêm các tính năng như các chương trình đơn, các cửa số, và các 
hộp hội thoại, cho nên tất cả các chương trình ứng dụng Windows đều có 
một giao diện trợ giúp. Ban đầu, Windows chỉ có nhiều hơn một ít so với 
bản duyệt trước của Presentation Manager của OS/2. Windows chỉ chạy 
được với một ít chương trình ứng dụng được biên soạn đặc biệt cho nó trong 
môi trường giao diện người-máy đồ hoạ, và sử dụng các tiêu chuẩn nhớ mở 
rộng như Lotus-Intel-Microsoft Specification 4.0 chẳng hạn. Tuy nhiên, 
những chương trình theo quy cách IBM thế hệ mới đòi hỏi phải có chế độ 
bảo vệ của các bộ vi xử lý Intel 80286 và 80386 với l6 M không gian nhớ 
đồng nhất của chúng. Microsoft đã chọn lập trường là các chương trình trong 
chế độ bảo vệ phải được biên soạn cho OS/2 và Presentation Manager. Về 
sau, DESKQ view (của hãng Quarterdeck Systems) xuất hiện với khả năng 
có thể chạy các chương trình MS-DOS trong các cửa sổ chế độ bảo vệ, cho 
nên Microsoft cũng đã cho ra đời Windows 3.0 có thể chạy với các chương 
trình ứng dụng MS-DOS trong chế độ bảo vệ. Windows 3.0 đã thành công 
một cách kỳ diệu, cùng với Excel và Word for Windows đang thu được 
nhiều người dùng hơn; các khách hàng sử dụng Windows khác thì mua 
chương trình này đơn giản chỉ vì muốn chạy nhiều chương trình cùng một 
lúc. Bản 1992 của Windows 3.1 đã củng cố thêm cho sự thông dụng của 
Windows, đo có nhiều cải thiện quan trọng vẻ tốc độ, có Program Manager 
và File Manager, có các phông True Type, có khả năng điều khiển chuột 
trong các trình ứng dụng MS-DOS, có màn hình Help được cải thiện và khả 
năng đa nhiệm, có các trình cất giữ màn hình cài sẵn, có khả năng liên kết 
và nhúng đối tượng (OLE), và các mở rộng đa phương tiện. Mặc dù nhiều 
người sử dụng DOS vẫn tiếp tục thích thú về tốc độ cao hơn và sự kiểm soát 
của người dùng trực tiếp hơn trong các trình ứng dụng được ưa thích của 
họ, nhưng những người sử dụng có năng khiếu đồ hoạ đều đồng ý 
Microsoft Windows sử dụng rất thú vị. Lời khuyên: Để chạy Windows, 
bạn phải có nhiều sức mạnh điện toán hơn khi chạy các chương trình ứng 
dụng DOS tương đương. Một nền Windows tối thiểu phải gồm có một 
máy 80386 SX chạy ở lố MHz (như) g tốt hơn là 20 hoặc 25 MHz, ít nhất 
4M RAM, 80 M đĩa cứng, một bộ điều hợp VGA 16 bit cùng với màn 
hình VGA, và một máy in phun hoặc laser. Tốt nhất là mua một máy 
80486 DX 2 chạy ở 66 MHz. 8 M RAM, 200 M đĩa cứng, và một bộ điều 
hợp VGA cùng với màn hình. 
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Sau Windows 3.1 đến các phiên bản Win 95, Win 98, Win 2000. 
Microsoft Windowx NT 


Là phiên bản 32 bit của giao diện người-máy đồ hoạ thông dụng của 
Microsoft, nó tạo khả năng đa nhiệm thực sự cho những máy tính cá nhân có 
cơ sở Intel và các trạm công tác chuyên dụng. Phiên bản này của Windows 
có thể bỏ qua DOS và có khả năng thâm nhập tốt hơn vào bộ nhớ hệ thống 
so với Windows 3.1. Windows NT chạy được trong chế độ bảo vệ không loại 
trừ trường hợp nào, cho phép những lập trình viên có thể sử dụng đến 4 
gigabyte RAM mà không cần phải sắp xếp lại để đánh lừa máy. Cùng với 
những ưu điểm đó, Windows NT còn có khả năng chấp nhận trục trặc, quản lý 
tệp, thâm nhập mạng, và bảo vệ an toàn được cải thiện tốt hơn. Trên màn hình, 
Windows NT trông giống như Windows 3.L quen thuộc. Không lệ thuộc vào 
sự giới hạn của DOS, Windows NT nhằm vào những nhược điểm của 
Windows 3.1 để khắc phục, nên đã trở nên hấp dẫn đối với các hệ điện toán 
nhiều người sử dụng, là các hệ hay dùng UNIX hoặc OS/ 2. Tuy nhiên với đòi 
hỏi bộ nhớ lớn - 70 M không gian đĩa cứng và 16 M RAM chưa dùng đến - 
Microsoft Windows ẤT chỉ được sử dụng trong các hệ máy tính mạnh nhất. 


c. Các phân mêm ứng dụng khác 


Phần mềm ứng dụng hiện nay có cho mọi ngành nghề, mọi thành phần 
công việc và không ngừng được cải tiến. 

Với công tác thiết kế cầu đường ô tô. đã có các phần mềm về thiết kế 
bình đồ. cắt dọc, cát ngang đường (Søfidesk), tính kết cấu (SAP), tính ổn 
định mái taluy (B;shop), tính mạng lưới thoát nước đô thị (Mfouse), tính hiệu 
quả kinh tế vốn đầu tư (CBA, HDM ) v.v... 


Công nghệ phần mềm của Việt Nam hiện nay cũng được phát triển khá 
mạnh. Trong thiết kế đường, nhiều kỹ sư đã quen thuộc với phần mềm 
NOVA của Công ty Hài Hoà. 


Tuy nhiên, phạm vị ứng dụng phần mềm đôi khi cũng không thích hợp do 
cơ sở lý thuyết khác nhau, quy trình kỹ thuật khác nhau, và không phải lúc 
nào cũng “có sẵn”, “có đủ” để cài đặt vào máy tính. Do vậy, các kỹ sư nên 
biết lập trình để có thể. “? biên tự điển ” một số nội dung thiết kế theo quy 
trình Việt Nam, theo lý thuyết tính toán mà mình cho là hợp lý. 


3) Công tác lập trình 

Để lập trình, trước hết phải dựa vào ngôn ngữ lập trình. Hiện nay có nhiều 
ngôn ngữ lập trình như Pascal, C+, Visual Basic.... 

Để lập trình cho ra một sản phẩm phần mềm, thí dụ thiết kế đường, yêu 
cầu đầu tiên là phải có sự kết hợp chật chẽ của 2 chuyên gia: 

- Chuyên gia về thiết kế đường, chịu trách nhiệm để ra các nội dung thiết 
kế, trình tự thiết kế, các tình huống xảy ra khi thiết kế... 

- Chuyên gia vẻ lập trình máy tính, chuyển các nội dung trên thành 
chương trình chạy máy tính qua các bước nhập số liệu, các lệnh ... 

Nếu chuyên gia thiết kế đường không giỏi, sẽ không thể lường trước mọi 
tình huống xảy ra để chuyên gia lập trình viết chương trình. Ngược lại, nếu 
chuyên gia lập trình không giỏi, không nắm được vấn để để chuyển thành 
chương trình cho máy chạy. Kết quả là chương trình chạy sẽ bị lỗi, không 
đáp ứng hết mọi tình huống thực tế khi người kỹ sư thiết kế sử dụng phần 
mềm để thiết kế. 
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Chương 2 
KHÁI QUÁT VỀ LẬP TRÌNH TURBO PASCAUL 


2-1. ĐẶC ĐIỂM NGÔN NGỮPASCAL 

1) Xuất xứ 

Năm 1971, giáo sự Niklaus Wirth ở trường đại học kỹ thuật Zurich (Thuy 
sỹ) đã thiết kế và công bố một ngôn ngữ lập trình bậc cao, vạn năng, được 


đặt tên là Pascal để tưởng nhớ đến nhà toán học người Pháp Blaise Pascal ụ 
thế kỷ XVI. 


Trong lập trình Pascal, lần đầu tiên N. Wirth đưa ra khái niệm “Phương 
pháp lập trình cấu trúc” mà trước đó, như phương pháp FORTRAN không 
có. Ngày nay, Pascal được coi là một trong những ngôn ngữ lập trình bậc 
cao ưu việt nhất trong cả lĩnh vực giảng dạy và lập trình chuyên nghiệp. 


2) Các loại Pascal 


Ban đầu Pascal chỉ là ngôn ngữ để dạy học là chính, nhưng do khả năng 
ứng dụng thực tế, các hãng phần mềm đã sử dụng để thương mại hoá với 
nhiều loại khác nhau: 


- ISO Pascal: Pascal chuẩn ISO (International Standard Organization). 


- ANSI Pascal: Pascal của Viện tiêu chuẩn Hoa Kỳ (American National 
Standard Institute). 


- Turbo Pascal: Pascal của hãng Borland. 
- IBM Pascal: Pascal của hãng Microsoft. 


- UCSD Pascal: Pascal của trường Đại học tổng hợp California ở San 
Diego (University of California at San Diego). 


- Pascal chạy trên máy tính VAX 


lựi 


Trong các loại trên, Turbo Pascal là loại phổ biến nhất trên thế giới, vì 
đáp ứng những yêu cầu rất đa dạng của người sử dụng. 

- Đối với người học: Turbo Pascal cho phép người học làm việc với máy 
theo chế độ đối thoại (question — answer). 

- Đối với người lập trình chuyên nghiệp: Turbo Pascal là một công cụ 
phát triển mạnh và có tốc độ cao vì có thời gian dịch và thực hiện chương 
trình nhanh vào loại bậc nhất. 


3) Các version của Turbo Pascal 


Hãng Borland đã cho ra đời các Turbo Pascal (TP) version 2.0, 3.0, 4.0, 
5.0, 5.5, 6.0 và 7.0. 


Version 6.0: đặc điểm nổi bật là giới thiệu thành phần của Turbo vision, 
một thư viện chương trình cụ thể, định hình có các cửa sổ tiện ích để đối 
chiếu với nhau. 

Version 7.0: được đưa ra vào cuối năm 1992, có thể chạy trong cả hệ điều 
hành MS-DOS và WINDOWS. Với version này, ngoài Turbo Pascal còn có 
Borland Pascal (BP). Version này đã thực sự mở rộng cú pháp, quản lý chuỗi 
0, củng cố lại các quy tắc, hệ thống, chỉ thị các câu lệnh. 


Sau khi cho ra đời version 7.0, hãng Borland đổi tên thành Inprise và để 
lại một tồn tại: khi chạy Borland Turbo Pascal 7.0 trên máy tính tốc độ cao 
(Pentium II, AMD K6...) thường mắc lỗi đưa ra thông báo “E/ro 200: 
division by zero”, ngay cả khi chương trình không hề có phép chia. Người 
dùng trên thế giới đã phải tự khắc phục thiếu sót này. Ở Việt Nam, bạn đọc 
có thể tự sửa bằng cách copy file TURBO.TPL từ Pascal đã chạy được trong 
một máy tốc độ cao, sau đó copy đè lên file Turbo.tpl đã có trong thư mục 
BIN của máy chưa chạy được. 


4) Đặc điểm của ngôn ngữ 

Ngôn ngữ Pascal có các đặc điểm sau: 

- Là ngôn ngữ có tính định kiểu chặt chế, 

Các biến và các hằng trong một biểu thức phải có cùng kiểu dữ liệu. Khi 


có kiểu khác nhau thì phải chuyển đổi về cùng kiểu. Có thể chuyển đổi tự 
động hoặc chuyển đổi bắt buộc. 
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- Là ngôn ngữ mang tính cấu trúc. 

Pascal cho phép một chương trình lớn có thể chia thành nhiều phần, mỗi 
phần độc lập với nhau nên nhiều người có thể cùng tham gia viết một chương 
trình. Thông thường các khối ứng với từng nhiệm Vụ cụ thể được thực hiện 
bằng các chương trình con (subroutine) và sử dụng các biến riêng (local 
variable) nên không làm ảnh hưởng đến các chương trình con của các khối 
khác. Quan hệ giữa chương trình con với chương trình chính hay giữa chương 
trình con với nhau là xử lý đữ liệu và đưa ra kết quả từ chương trình con đó. 

Cụ thể, tính cấu trúc của Pascal được thể hiện ở 3 mật sau: 

+ Cấu trúc về mặt dữ liệu: từ các dữ liệu chuẩn hay dữ liệu cấu trúc, 
người lập trình có thể xây dựng các kiểu dữ liệu phức tạp hơn. 

+ Cấu trúc về mặt lệnh: từ các lệnh đơn hay lệnh cấu trúc, người lập trình 
có thể nhóm chúng lại với nhau và đặt giữa từ khoá BEGIN...END thành câu 
lệnh phức tạp hơn gọi là lệnh phức hay câu lệnh ghép. 

+ Cấu trúc về mặt chương trình: một chương trình cố thể chia thành 
nhiều chương trình con dưới dạng các thứ tục (procedure), các hàm 
(funtions), các đơn thể (modules), các đơn vị (units) độc lập với chương trình 
chính mà sự tương tác giữa chúng là dự liệu đưa vào và nhận lại kết quả. 


Khái niệm về lập trình cấu trúc sẽ giới thiệu chỉ tiết hơn ở mục 2-7. 


2-2. KHỞI ĐỘNG, GHI CHƯƠNG TRÌNH VÀ KẾT THÚC TURBO 
PASCAL 


1) Khởi động Turbo Paseal 7.0 (TP7), hoặc Borland Pascal (BP). 


Để làm việc với Borland-Turbo Pascal ta nên đặt tất cả các tệp hệ thống 
trong một thư mục (như TP7, BP) ở éC. Để khởi động TP7 hoặc BP qua NC 
(Norton Commande), tà vào NC, lần lựot đặt thanh sáng rồi enter: TP — BIN 
~ turbo.exe - sẽ ra file đầu tiên với menu chính như hình 2-1. 

Cách khác: vào NC - TP — BIN rồi gỗ tiếp vào dấu nhắc ở phía dưới: 
CAXTP > BIN > Turbo, nhấn Enter sẽ ra hình 2-1. 

Eile Edit Search Run Compile Debug Tool Option Window Help 

Như lẽ thường, mỗi menu trên sẽ bao gồm nhiều mục chọn khác, qua các 
hộp thoại mà chúng ta sẽ lần lượt tìm hiểu sau. 
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File Edit Search Run Compile Debug Tools Options Window Helo 
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F1 Help F2 Save F3 Open Alt + F9 Compile f9 Make Alt + F10 Local menu 


Hình 2-1: Màn hình File mới của TP7. 


Save File As 











Hình 2-2: Hộp thoại ghỉ tên file mới (Save File A3). 


2) Ghi tên File (tệp chương trình) 

Sau khi soạn thảo chương trình lần đầu, cần ghi lại và đặt tên File mới 
(Save File As) ta nhấn F2 ra hộp thoại như hình 2-2. Trong ô đầu mục Sw£ 
file as ta ghi tên file với duôi * .PAS (thí dụ: phepcong.PAS ). 


3) Ra khỏi Turbo Pascal 
Cách L: dùng chuột chó vào menu Eile, chọn ExIL 
Cách 2: nhấn Alt+X 


4) Mở lại File đã có 


Cách 1: dùng chuột đưa con chỏ vào menu Eile, chọn Open ra hộp thoại 
Open a File như hình 2-3. Nhấn tiếp chuột vào File đã có định mở lại. 


Cách 2: nhấn F3 ra hộp thoại Ởpen a File như hình 2-3., Enter đưa thanh 
sáng xuống danh sách File, chuyển thanh sáng đến File đã cố định mở lại, Enter. 


File Edit Search Run Compile Debug Tools Options Window Help 
*++[ ‡+--ex-=e>x~m—- NONAMEOO.PAS -~~-T-==~~~——~ 1-t'* 


NÑame 


Files 
BDANG_DE.PAS THGIANLU.PAS Replace 
COPYOF-1.PAS TIMD_Q.PAS 

GREP2MSG.PAS | TIM V_Q.PAS 

LLUGMUAO.PAS TING_Q_K.PAS 
LUNCOKET.PAS 

PHEPCONG.PAS 
PRNFLTR.PAS 
Q_HINH_T.PAS 























Hạp 
DATP\BINV.PAS 
BDANG_DE.PAS 1239 Feb 20/2004  3.58pm 
to~—T-c==-==-==>—-==--==-~==-~=-T-“—" + 

+~—==- 117 -——- 1 





ÄFT Help[ Type for incremental search: fower for files, upper for directories 
Hình 2-3: Hộp thoại Open a Pie 
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5) In chương trình và kết quả chạy chương trình 
8: In chương trình 


Sau khi soạn thảo xong chương trình, chạy đúng, muốn ¡n lại, có thể làm 
như sau: 


- Nhấn Alt+X ra khỏi TP 


- Vào Word — Open ~ ổ C: - TP~ BIN — Tìm tên Eile (thí dụ Pro-4.PAS) ~ 
Open - Print - OK. 


Chú ý: trong BIN sẽ có nhiều File Pro-4 với các đuôi như exe, bak...Máy 
chỉ in với đuôi PAS. 
b. In kết quả chạy chương trình 


Sau khi chạy chương trình ra kết quả trên màn hình DOS, muốn ¡n làm 
như sau: 


- Nhấn AlttScreen ~ nhấn enter về chương trình - nhấn Alt+X thoát 
khỏi TP 

- Vào Word (ra màn hình trắng) — vào menu Edit chọn Paste (hiện ra kết 
quả chương trình trong Word) — Print - OK. 


2-3. SOẠN THẢO VÀ THỰC HIỆN CHƯƠNG TRÌNH 


1) Soạn thảo chương trình 


Có thể hình dung khái quát một chương trình Pascal: Là một bài toán 
gồm các biến số (được thể hiện bằng các kiểu đữ liệu) trong một hàm số, 
được giải bàng các lệnh liên kết với nhau qua các từ khoá. Chí tiết sẽ lần lượt 
giới thiệu ở mục 2-4, 2-5, 2-6. 

Trước khi soạn thảo, khởi động vào File mới như đã nêu ở trên. 

Khi diễn giải soạn thảo chương trình, fa có thể gõ tiếng Việt không dấu 
(tức là theo Font tiếng Anh). 

Thủ tục soạn thảo một chương trình Pascal điển hình thường có dạng như 
ví dụ sau: 
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Ví dụ 2-1. 
Program Phep_cong; 
ISeS CF; 
var 
a,b,tinteger; 
begin 
clrscr; 
write(°nhap vao SO a:`);readln(); 
write(°nhap vao SO b:”);readln(b); 
t:=a+b; 
writeln(“tong cua a Va blat:°,t:10); 
readln 
end. 


Để kiểm tra chương trình soạn thảo có đúng luật không, nhấn phím 
Alt+F9. Nếu đúng sẽ ra thông báo như hình 2-4. Nếu không đúng sẽ đưa ra 
thông báo như hình 2-5. 


Chỉ tiết các thuật ngữ dùng trong ví dụ 2-1, sẽ giải thích ở mục 2-4, 2-5. 


Số 10 sau chữ t có ý nghĩa là 10 khoảng trống dành chỗ cho viết số, gồm 
cả phần nguyên và thập phân (nếu là real). 









Compiling 


Main file: T1.PAS 
Done. 







Destination: Disk Line number: 0 
Free memory: 323K Totallines : 26 


CCCiiiefestirssaviyreeeess== 


Hình 2-4: Thông báo kết quả kiểm tra lập chương trình đúng 
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————————————————— CC  lFÀ— 


Var 

d: String [255] ; 
dong : lnteger ; 
btep1, btep2: Text 
tep1, tep2: String [30] 
Begin 

Write (Vào tệp nguồn:'); ReadIn (tep1); 
Write (Vào tệp đích:'); ReadIn (tep2); 
Assign (btep1, tep1); 

Assign (btep2, tep2); 

Reset (btep1); Rewrite(btep2); 


Hình 2-5: Thông báo lỗi khi chương trình viết sai 


2) Thực hiện (chạy) chương trình 

Có 2 cách: 

- Vào menu Run, chọn mục Run 

- Nhấn phím Ctrl+F9 

Sẽ ra màn hình nhắc nhập lần lượt số a, số b rồi cho kết quả t như sau: 
nhap vao so a:4 
nhap vao so b:5 


tong cua a va b la t: 9 


3) Một số lệnh chính khi soạn thảo chương trình 

Chèn 1 dòng: ấn phím Ctrl+N 

Xoá I dòng: Cưl+Y 

Khôi phục dòng vừa xoá: Cưl+QL 

Xoá từ vị trí con trỏ đến cuối dòng: Cưl+QY 

Đánh dấu khối: đưa con. trỏ đến đầu vùng cần đánh dấu khối ấn Cưl+KB, 
đưa con trỏ đến cuối khối ấn Ctrl+KK 
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Sao chép khối: Sau khi đã đánh dấu khối, khối được xác định sẽ đổi màu. 
Để sao chép khối này, đưa con chỏ đến vị trí cần sao chép ấn Ctrl+C 


Dịch chuyển khối: Ctrl+V 

Xoá khối: Ctrl+Y 

Xoá đánh đấu khối Ctrl+KH 
Tìm kiếm chuỗi ký tự: CưI+QF 


Tìm kiếm và thay thế một chuỗi ký tự bằng một chuỗi ký tự khác: 
Cưli+QA 


2-4. CÁC KIỀU DỮLIỆU 


Kiểu dữ liệu dùng để xác định tập hợp các giá trị mà một biến có thể 
nhận. Mỗi biến trong chương trình cần phải được kết hợp với một và chỉ một 
kiểu dữ liệu. Kiểu dữ liệu xác định thuộc tính của dữ liệu, là cơ sở để phân 
biệt đối tượng này với đối tượng khác. 


Các kiểu dữ liệu chuẩn của Pascal như bảng 2-1 sau. 


Bảng 2-1. Bảng kê các dữ liệu chuẩn của Pascal 








Tên kiểu | Kích thước Phạm vì Ghi chú 

l Enteger F 2 Bvte -32768 đến 32767 Dạng 8 bit, có dấu 
Byte 1 Byte 0 đến 255 Dạng 8 bịt, không dấu 
Word 2Byte 0 đến 65535 Dạng 16 bit, không dấu 
Shortlnt 1 Byte -128 đến 12? Dạng 8 bịt, có dấu 


Longlnt 4Byte | -2147483648 đến 2147483647 | Dạng 32 bịt, có dấu 


Boolean 1 Byte 2 giá trị: True hoặc False 
| Char | 1 Byte 0 đến 255 Dạng 8 bit, không dấu 
Real 6 Byte 2.9E-39 đến 1.7E+38 Định trị có 11 ký số 

















Extended | 10 Byte 3.4E-4932 đến 1.1E+4932 
L~ —Ì— 


. Sau đây mô tả một vài kiểu dữ liệu chính: 


25 


1) Kiếu số nguyên Integer 

Là các số nguyên như 0,1.3, 34, 57..... có dấu âm (-) hoặc đương (+) 
Cũng có thể là các chữ đại số như: a, b, m, n, X, Y, SO ... 

2) Kiểu số thực Real 

Là các số thập phân, có dấu âm (-) hoặc dương (+) 

Các số thực được viết dưới 2 dạng: 

+ Dạng dấy phẩy tĩnh như 654.326 

+ Dạng đấu phấy động như 6.54326E+02 (=6.54326*10?= 654.326) 


3) Kiểu Boolean 


Dữ liệu kiếu này chỉ có 2 giá trị 7rue (đúng) và False (sai). Giá trị False 
được coi là nhỏ hơn True 


2-5. TÊN BIẾN VÀ HÀNG, PHÉP GÁN VÀ SO SÁNH, LỜI CHÚ 
THÍCH, TỪKHOÁ 


U Tên 
Tên dùng để đặt cho các đại lượng trong chương trình như tên biến, tên 
hằng, tên kiểu đữ liệu, tên hàm, tên mảng, tên bản ghi, tên chương trình, tên 
con Trỏ... Tên bất đầu phái là chữ cái và không chứa dấu trống, dấu phép 
toán và tên không được trùng với từ khoá. 
Các ví dụ đúng về tên: 
Tỉnh luu_luong_cong Q: 
Delta; 


Các ví dụ sai về tên: 


Tình-do-lun-nen; (vì có dấu trừ) 
2duong_thang; (vì ký tự đầu tiên là số) 
Type; (trùng với từ khoá) 


Trong khi thực hiện các câu lệnh, Pascal không phân biệt chữ hoa và chữ 
thường, (nhưng với chuỗi ký tự thì có phân biệt). 
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Ví dụ về tên sau đây đều có ý nghĩa như nhau: 
TinhKhoiluong; 
tinHkhOiLuonØ, 
2) Biển 
Biến là một đại lượng lưu trữ một giá trị nào đó dùng để tính toán, so 
sánh trong chương trình. Biến cũng nhận các kiểu dữ liệu như đã giới thiệu ở 
trên và có thể thay đổi giá trị nhiều lần trong chương trình. 
Biến là tên một vùng lưu trữ dữ liệu. 
Trước khi dùng biến phải khai báo theo dạng sau: 
var 
<dãy các biến>: <dạng dữ liệu> 
Các biến trong dãy được viết cách nhau một dấu phẩy, tham khảo ví dụ sau: 
vat 
a,b,c:Real; 
1,n:Jnteger; 
t:Sring[10]: 
Một biến dạng string được cấp một số byte bằng chiều đài của nó cộng thêm 
một. Byte đầu tiên để ghì số ký tự đang lưu giữ, mỗi byte còn lại một ký tự. 


3) Hàng 

Hằng là một đại lượng xác định, không thay đổi giá trị trong chương trình 
với từ khoá CONST. Hàng cũng có các kiểu dữ liệu như trên. Khi khai báo 
hằng, phải tuân thủ nguyên tắc sau: 

Tên hằng = giá trị của hằng hoặc 


- Tên hằng = biểu thức cúa hãng 


Ví dụ: 
Const 
a:=be rong nen; 
b:= 60; 
c:=4*6 
d:=FALSE; 


2? 


Turbo Pascal cho phép thực hiện đồng thời việc khai báo và khởi đầu một 
giá trị sau từ khoá const. 
Ví dụ: 
Const 
a:=10.5; 
b:integer=60; 
Sau này, trong chương trình, giá trị của biến b đã được nhận giá trị là 6Ô 
(trừ trường hợp ta gán giá trị khác). 
Một số lưu ý: 
Trong chương trình có thể gán lại giá trị của biến b: 
b:=48; 
Nhưng nếu gán lại các hằng không được khai báo như dạng trên, (ví dụ 
như biến a) thì sẽ bị thông báo lôi. Ví dụ như sau là không hợp lệ: 
a:=8.4, 
4) Phép gán 
Trong khi lập chương trình, một số biến có thể được gán một giá trị nào 
đó bằng toán tử gán (:=). Phép gán còn có ý nghĩa là thay thế giá trị hiện tại 
của biến bằng một giá trị mới. 
Ví dụ: a:=5; nghĩa là biến a nhận giá trị là h 
b:=3*h; nghĩa là biến b luôn có giá trị gấp 3 lần biến h 
-ez=c+1; nghĩa là biến c lấy giá trị cũ tăng thêm 1 
Cần lưu ý rằng: biểu thức được gán phải phù hợp với kiểu đữ liệu của biến 
hoặc kết quả của hàm. 


Ví dụ: 
Nếu khai báo Phép gán hợp lệ Phép gán không hợp lệ 
var 
I:ÍÏnteger; L=18; 1:=18.5; 
k:Real; k:=10.6; k:=l0; 
h:Char; h:='C; h:=5; 
t:String; t='Mai Anh”; t:=Mai Anh; 
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Các phép gán sau đây cũng là không hợp lệ: 
a-b:=8; 
12:=c; 
a-10:=b; 
vì không biết viết vế trái vào đâu. 


Š) Phép so sánh logic 
Phép so sánh logic được thực hiện bằng các ký hiệu 
" bằng nhau 
> lớn hơn 
< nhỏ hơn 
>= lớn hơn hoặc bằng 
<= nhỏ hơn hoặc bằng 


<> khác nhau 


Để kết hợp các phép so sánh, Turbo Pascal dùng từ khoá OR để chỉ phép 
“hoặc” logic và dùng từ khóa AND để kết hợp 2 điều kiện. 


Ngoài ra ta có thể dùng từ khoá NOT để chỉ phép phủ định. 
Ví dụ: 

1Í (a>b) OR (c>d) then 
6) Lời chú thích 


Trong chương trình, khi cần thêm các dòng chú thích để dễ hiểu, hoặc 
khi cần sửa đổi bổ sung, ta đưa các lời chú thích vào giữa 2 ký hiệu (*..*) 
hoặc {..}. 


Cặp ngoặc [..] trong TP được dùng để khai báo mảng. 

Ta có thể dùng nhiều cặp ngoặc (..) cho điễn giải công thức tính toán. Các 
phép toán và so sánh sẽ được thực hiện từ trong ra ngoài. 

7) Từ khoá 


Trong chương trình có các từ khoá mang nội dung về mặt ngữ nghĩa hoàn 
toàn xác định và được viết bằng chữ in hoặc chữ thường, nhưng phải cách 
các ký tự khác. Các từ khoá thường dùng là: 
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AND, ARRAY, BEGIN, CONST, DIV, DOWNTO, ELSE, END, FILE, 
FOR, FORWARD, FUNTION, GOTO, IF, IN, LABEL, MOD, NIL, NOT 
OF, OR, PROCEDURE, PROGRAM, RECORD, REPEAD, SET, THEN 
TO, TYPE, UNTIL, VAR, WHILE, WTITH... 


* 


* 


Trong các từ khoá trên, có các từ khoá luôn đi cùng nhau để tạo thành 
một cặp trong chương trình như BEGIN...END, REPEAD...UNTIL. Điều 
này nhắc người lập chương trình khi viết từ khoá mở đầu thì cần nhớ đến nơi 
cần từ khoá kết thúc. 

8) Tên chương trình 

Một chương trình có thể được đặt tên sau từ khoá Program như 

Program Tỉnh luu_luong_Q; 


Nguyên tắc viết tên như đã nêu ở mục l trên. 


2-6. LỆNH WRITELN, WRITE VÀ READLN, READ. USES CRT VÀ 
CLRSCR 
1) Lệnh Writeln(...); 


Lệnh dùng để in các giá trị chủ yếu mà ta cần biết trên một dòng màn 
hình, bắt đầu từ vị trí hiện thời của con trỏ, sau đó đưa con trỏ về dầu đòng 
tiếp theo. 


Cú pháp sử dụng lệnh này là: 

Writeln(biểu thức 1, biểu thức 2,.... biểu thức n); 
Qua ví dụ 2-1 có một biểu thức t như: 

Writeln(“Tong cua a va b la t:',t: 10); 
Các biểu thức là đối số của lệnh Writeln(...) có thể là số nguyên, số thực, 

chuỗi ký tự (String), giá trị logic... và có thể kết hợp giữa chúng. 

Ví dụ 2-2: 

Var 

a,b:String[20]; 


Begin 
a:='Mai Anh - '; 
b:=`Giáo viên”; 
Writeln(a,b); 
ReadIn 
Ếnd. 
Khi chạy chương trình sẽ có kết quả hiện trên màn hình: 
Mai Anh - Giáo viên 
Nhưng nếu thay dòng lệnh Writeln(a,b) bằng 2 dòng: 
Writeln(a); 
Writeln(b); 
thì kết quá nhận được là 2 dòng như sau: 
Mai Anh - 
Giáo viên 
Ví dụ 2-3. 
Var 
a:String[30]; 
c,d:Integer; 
Begin 
a:=°Kết quả của phép so sánh:`; 
c=s: 
d:=10; 
Writeln(a,c:3,">`,d:3,'là:” ,c>d}; 
ReadIn 
End. 
Khi chạy nhận được kết quả là: 
Kết quả của phép so sánh 8>10 là: FALSE 
Lưu ý: số [30] sau String là chỉ khoảng trống để viết chuỗi ký tự “kết quả 
của phép so sánh". Khi không để đủ khoảng trống này, kết quả đòng chữ in 
ra sẽ bị thiếu. 
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2) Lệnh Write(...), Writeln; 
Cú pháp lệnh Write(...): 
Write(bt1,bi2....bin); 

Tương tự như lệnh Writeln(...), nhưng khi đưa kết quả ra màn hình, con 
trỏ không xuống dòng dưới mà xuất hiện ở vị trí tiếp theo trên cùng một 
dòng với kết quả. 

Cú pháp lệnh Writeln; 

Writein; 

Có điểm khác lệnh Writeln(...) là không đưa ra tham số trong dấu ngoặc, 
chỉ có tác dụng đưa con trỏ xuống đầu dòng tiếp theo, tạo khoảng cách trình 
bày bản in kết quả. 

Tác dụng của lệnh Write tham khảo kết quả ví dụ 2-]. 

3) Lệnh Readin(...); Read; 

a. Lệnh Readln(...); 


Lệnh Readln(...) thường viết sau lệnh Write(...) để nhập số liệu từng biến 
theo từng dòng, (xem ví dụ 2-1). Khi nhập xong, con trỏ nhảy xuống đòng 
dưới để nhập tiếp. 

b. Lệnh Read(b1,b2,...,bn); 

Lệnh này tương tự lệnh Readln(...) nhưng khi nhập xong giá trị cho các 
biến, con trỏ màn hình không chuyển xuống dòng dưới. 

©. Lệnh Readln; 


Lệnh Readin (không có tham số trong ngoặc) dùng để dừng chương trình 
tại một thời điểm nào đó để kiểm tra biến. kiểm tra kết quả...Muốn chương 
trình tiếp tục, nhấn phím Enter. 


4) Kết hợp lệnh Writeln (hoặc Write) với ReadIn (hoặc Read) 


Lệnh Writeln (hoặc Write) thường dùng để giới thiệu loại dữ liệu, sau đó 
đến lệnh ReadIn (hoặc Read) để ghi giá trị số liệu lên màn hình. Tham khảo 
các ví dụ đã nêu ở trên sẽ thấy rõ điều này. 
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Trong một câu lệnh có thể nhập 1 biến (như ví dụ 2-1, Write(°nhap vao so 
a:);) hoặc nhiều biến (như ví dụ 2-2, Writeln(a.b);). Đọc nhiều biến xem 
thêm ví dụ 2-4. 


Ví dụ 2-4. Program Diem_trung_bỉnh; 
Var 
t,L,h,tb:real; 
hr:String[20]: 
Begin 
Write(Ho va ten hoc sinh:?);Readin(ht); 
Write(°Nhap diem Toan, Ly, Hoa:');ReadIn(t,1,h); 
tb:=(t+Ì+h)/3; 
Writetn(°Diem trung bình cua học sinh *,hÐ;: 
Writeln(tb:5:2); 
Readln 
End. 
Chú ý: Khi nhập giá trị cho t,l, h cần phân biệt các biến này bằng 
2 cách: 
- Nhập xong một biến (như t) nhấn phím Enter để xuống dòng, sau đó 
nhập biến khác (như Ì). 
- Nhập xong trị số t, nhấn phím cách rồi nhập tiếp I, lại nhấn phím cách 
nhập h. 


5) Lệnh Uses crt; CIrsCF; 

Lệnh Uses crt; được dùng cùng với lệnh Clrscr;, để xoá màn hình sau khi 
chạy xong một lần chương trình. 

6) In có định dạng 

- Số nguyên 


Giả sử ta có thông số n là số nguyên, muốn đưa giá trị ra màn hình với độ 
dài 5 vị trí, ta dùng lệnh; 


Writeln(n=`,n:5); 
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Giả sử n=243 kết quả thể hiện như sau: 
Kết quả: { 243] 
«e—® 
Š vị trí 
- Số thực 
Nếu biến x là số thực, phải khai báo phần thập phân cho biến này bằng lệnh: 
Writeln(x=`,x: 10:2); 
Kết quả được đưa ra trên màn hình dài 10 vị trí, trong đó có 2 vị trí số 
thập phân. 
Giả sử x=2.14 kết quả đưa ra màn hình như sau: 
Kết quả: [ 2.14] 
.ee 


2 vị trí số thập phân 


10 vị trí 
Ngoài ra Turbo Pascal còn cho phép ta đưa giá trị ra tại một vị trí nào đó. 
Trong trường hợp này, trước khi sử dụng lệnh Writeln, ta dùng lệnh GØTOXY 
theo cú pháp sau: 
Gotoxy(x.y) 
Writeln(<giá trị>); 
Khi này <giá trị> được đưa ra tại toạ độ có cột là x và có dòng là y. Để 
thực hiện việc này, ta phải sử dụng Unit Crt như sau. 
Ví dụ 2-5. 
Uses cr1: 
Begin 
Goto(10,5); 
Writeln(°Ví dụ về lệnh goto');Readin: 
End. 
Kết quả nhận được như hình 2-6. 
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Hình 2-6: Kết quả nhận được khi dùng lệnh Gotoxy 


2-7. KHÁI NIỆM VỀ LẬP TRÌNH CẤU TRÚC 


Lập trình cấu trúc là một khái niệm rất khó định nghĩa nhưng có thể mô 
phỏng tóm tắt qua một số ý tưởng chính như sau: 


1) Ý tưởng chính về lập trình cấu trúc 


a. Về tổ chức chương trình: Yêu cầu chung là tổ chức phân cấp chương 
trình rõ ràng, có mối tương tác tối thiểu. Ví dụ: 


"ho Thiết kế một tuyến đường 1] 
J. “H lŠ JT kế cầu - « 


Bình đồ Cát dọc Cắt ngang L- lượng nước Q Tính KC 
Thiết kế mặt 


L-lượng xe N Tính K-cấu 


Nguyên tắc chung của hệ phân cấp là cấp cao hơn là hệ thống của cấp 
thấp hơn. Phân cấp tới cấp thấp nhất không thể phân chia được nữa thì gọi là 
thành phần cơ bản. h 

Mỗi thành phân trong hệ nên thiết lập mối tương tác tối thiểu lên các 
thành phần khác sao cho rõ ràng và có thể kiểm soát được. 
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Như vậy, ý tưởng đầu tiên của lập trình cấu trúc là “chi một bài toán 
phức tạp thành các bài toán đơn giản”. 

b. Trình tự 

Có 2 cách lập trình cấu trúc: 

- Từ dưới lên: là xây dựng các vấn đẻ cụ thể rồi sau đó mới ghép nối lại 
với nhau để trở thành bài toán lớn. Cách này có nhược điểm là không thể 
hình dung được tính tổng quát của bài toán. 

- Từ trên xuống: là cách phân tích tổng quát bài toán rồi sau đó mới giải 
quyết từng vấn đề cụ thể. Cách này thường dùng nhiều hơn. 

€©. Không cần lệnh Goto 


Lập trình cấu trúc là lập trình không cần đến câu lệnh Goto để rẽ nhánh 
chương trình. Vì câu lệnh này làm cho chương trình rườm rà, khó hiểu, khó 
đọc, khó kiểm soát. 


d. Sự biển đổi 


Lập trình cấu trúc cho phép biến đổi bài toán có sơ đồ khối lớn, phức tạp 
thành những sơ đồ khối nhỏ dạng chuẩn sao cho chúng có thể diễn đạt được 
bằng một số ít các cấu trúc điều khiển cơ bản (cấu trúc điều kiện, cấu trúc lặp). 


[— Gấu trúc lặp 
lồng nhau 








Sơ đỗ khối 
lớn 


phức tạp hề. 
= 


Cấu trúc điều kiện 


Hình 2-7: Sơ đồ biến đổi khối 





e. Chương trình rõ rằng; sáng sửa 

Lập trình cấu trúc là lập trình theo lối tuần tự từ trên xuống, kết hợp với 
các chú thích nên dễ dàng kiểm tra tính đúng đắn của chương trình. Do vậy, 
khi viết một chương trình, bản thân nó đã toát lên những câu hỏi và trả lời: 
“Làm gì ? Làm như thế nào ? Tại sao ? ”. 
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2) Các cấu trúc điều khiển chuẩn 


Trong lập trình cấu trúc, tuỳ theo chức năng nhiệm vụ người lập trình 
phái sử dụng các cấu trúc điều khiển sau đây: 


a. Cẩu trúc tiẩn tự (Seqiehce) 


Trong cấu trúc tuần tự, các câu lệnh được sắp xếp và thực hiện theo thứ tự 
từ trên xuống dưới, tham khảo sơ đồ sau: 


Var 
Sol.so2:Ïnteger: 

Begin 
Wnite(“nhap so 1=”); Hình 2.8: 
ReadIn(sol); Sơ đồ cấu trúc tuần tự 
Wnte(°nhap so 2=”): 
Readln(so2); 

End. 





b. Cấu trúc điều kiện () 

Điều kiện là một biểu thức logic, có trị là kiếu Boolean. có nghĩa là chỉ có 
hai giá trị True (đúng) và False (sai). Nếu điều kiện đúng thì thực hiện lệnh 
1, sai thì thực hiện lệnh 2. Tham khảo sơ đồ hình 2-9. 





If sol>so2 then 
Max:=sol 


Else 


Max:=s02; 





Hình 2-9: Sơ đô cấu trúc điều kiện 
Chú ý cách viết: trước từ khoá Else không yêu cầu có đấu (: ) 
c, Cấu trúc lựa chọn (case) 
Cấu trúc lựa chọn khác với cấu trúc điều kiện là điều kiện để lựa chọn là 


một biến hoặc một biểu thức có giá trị xác định chứ không phải là giá trị 
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logic. Vì vậy nếu biến hoặc biểu thức có giá trị nào đó thì sẽ thực hiện câu 
lệnh tương ứng. Sơ đồ khối cấu trúc lựa chọn như hình 2-10. 


Case so of 


1: Lệnh 1 1:Writeln(° Chào bà'); 





[ sưm 2:Writeln(°*Chào ông”); 
SN, ¬ 3:Writeln(“Chào cô"); 
CC 4;Writeln(°Chào cậu'); 
n: Lệnh N 
End. 


Hình 2-10: Sơ đô cấu trúc lựa chọn. 








Chú ý: thực tế lập trình diễn giải bằng chữ Việt không dấu. Một số 
chương trình mẫu ở đây dùng chữ Việt có dấu chỉ để bạn đọc dễ hiểu. 

dỈ, Cấu trúc lặp (loop) 

Cấu trúc lặp, còn gọi là chu trình, là khi điều kiện còn thoả mãn thì còn 
tiếp tục thực hiện lệnh, ngược lại thì thoát ra khỏi vòng lặp. Tuỳ theo điều 
kiện lặp người ta chia ra: 

- Số lần lặp xác định: nếu trong một khối cần phải lặp đi lặp lại N lần một 
hoặc vài tác vụ nào đó thì sơ đồ cấu trúc như hình 2-L1 sau: 


Var 
LÌnteger; 
Begin 


For ¡:=1 to 10 đo 
Writeln(1); 
End. 





Hình 2-11: Sơ đồ số lần lặp biết trước 
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- Số lân lặp không xác định: khi số lần lặp không được xác định thì tuỳ 
theo yêu cầu của tác vụ cần thực hiện mà chia ra 2 loại cấu trúc phụ như sau: 

+ Kiểm tra điêu kiện trước: Nếu điều, kiện (C) đúng (Ð) thì thực hiện 
nhóm lệnh cho tới khi nào điều kiện sai (S) thì thoát khỏi cấu trúc. Sơ đồ 
khối của cấu trúc này như hình 2-12. 


Var 
C:char; 

Begin 
Write(°Mật mã='); 
Readln(c); 


While c<>°N" do 
Write(°Mật mã='); 
Readln(c); 

End. 





Hình 2-12: Sơ đồ số lần lặp không biết trước (kiểm tra điều kiện trước) 
Đoạn chương trình ví dụ này minh hoa câu lệnh lặp While. Nếu ta gõ vào 
một ký tự khác với *N' thì máy cứ bắt ta phải tiếp tục gõ cho đến khi đúng 
chữ *N" mới thoát khỏi chương trình. 
+ Kiểm tra điều kiện sau: Cấu trúc này được sử dụng khi cần thực hiện 
lệnh trước rồi mới kiểm tra điều kiện sau. Nếu điều kiện đúng (Ð) thì thoát 
ra khỏi chương trình. Xem sơ đồ hình 2-13. 


Var 
C:char; 

Begin 
Repeat 


Write(°Mật mã=`); 
Readln(c); 
Until c=*Y”; 
End. 





Hình 2-13: Sơ đồ số lần lặp không biết trước (kiểm tra điều kiện sau) 
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- Số lân lặp không xác định: khi số lần lặp không được xác định thì tuỳ 
theo yêu cầu của tác vụ cần thực hiện mà chia ra 2 loại cấu trúc phụ như sau: 

+ Kiểm tra điêu kiện rước: Nếu điều kiện (C) đúng (Ð) thì thực hiện 
nhóm lệnh cho tới khi nào điều kiện sai (S) thì thoát khỏi cấu trúc. Sơ đồ 
khối của cấu trúc này như hình 2-12. 


Var 
€:char; 

Begin 
Write( “Mật mã='); 
Readln(c); 


White c<>`N' do 
Write( “Mật mã='); 
Readln(c); 

End. 





Hình 2-12: Sơ đô số lần lặp không biết trước (kiểm tra điều kiện trước) 
Đoạn chương trình ví dụ này minh hoạ câu lệnh lặp While. Nếu ta gõ vào 
một ký tự khác với “N' thì máy cứ bát ta phải tiếp tục gõ cho đến khi đúng 
chữ *N' mới thoát khỏi chương trình. 
+ Kiển tra điều kiện sau: Cấu trúc này được sử dụng khí cần thực hiện 
lệnh trước rồi mới kiểm tra điều kiện sau. Nếu điều kiện đúng (Ð) thì thoát 
ra khỏi chương trình. Xem sơ đồ hình 2-13. 


Var 
C:char; 

Begin 
RepcatL 


Write(°Mật mã='); 
Readln(c); 
Until c=`Y”; 





Hình 2-13: Sơ dồ số lần lặp không biết trước (kiểm tra điều kiện sau) 
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Đoạn chương trình này yêu cầu gõ vào một ký tự cho tới khi đúng chữ 
(Y) mới thoát khỏi chương trình. 

3) Cấu trúc mảng (Array) 

Mảng là một dạng biến nhớ có thế chứa nhiều phần tử. Các phần tứ mảng 
có cùng kiểu với nhau. Mỗi phần tử xác định qua 1 chỉ số. Có 2 loại mảng: 

Mảng 1 chiều: Array [Miền chỉ số] of Kiểu dữ liệu, (xem mục 2-4). ộ 

Măng 2 chiều: Array [Miền chỉ số hàng, Miền chỉ số cột] of Kiểu dữ liệu 

Để dễ hiểu, ta cho chạy chương trình như ví dụ 2-6 sau. 

Ví dụ 2-ó: Nhập vào một dãy số nguyên. in ra các số lẻ trong dãy 


Program Mang day so dua ra so le; 


uS€S CTI; 

Và 
a: Array[L..50] of Integer; 
n, 1: Integer; 

begin 

CÍTSCT; 


Write (*nhap vao so m:`); readln(n); 
for I:=l to n do 
begin 
write(*a[*,i,`]:=”); readIn(a[i]); 
end; 
write(Day da nhap:`); 
for (:=l to n do 
write (a{1]:5); 
writelhn; 
for =1 ton do 
if a[¡] mod 2<>0 then 
write (a[i]:5); 
readln; 
end. 
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Đặc điểm trong chương trình trên: có dùng phép chia lấy phần dư 
mod (như 5 mod 2 bằng 1) và phép chia lấy phần nguyên đỉy (như 5 đi 2 
bằng 2). 

n là số các số hạng ta nhập vào, thí dụ n = 6. Các số nhập vào là số chẩn, 
lẻ, âm, dương tuỳ ý. Kết quả chạy và in ra được như sau: - 


Nhạp vao ao H: 6 


ajl]:= 4 

a(2}:= -8 

aÍ3}:= 7 

a(4):= -Š 

'a/3}:= -2 

a/ó]:= 9 

Day da nhap: 4 -8 7 -5 -2 9 
7-59 : 


“Trong đó đã đưa ra kết quả đúng là các số lẻ 7, -5, 9. 
4) Xâu ký tự (String) 


Xâu ký tự dùng để chứa I dãy các ký tự, trong đó vừa có thể truy nhập 
_ đến từng phần tử ký tự như mảng 1 chiều, vừa có thể thao tác trên toàn bộ 
xâu như đọc, ghi .. 


Khai báo: Var Tên xâu: Sting; 

: Tên xâu: String[n]; 
Các hàm thao tác trên xâu: 
Delete(S1,n), Xoá trong S từ vị trí ¡, n ký tự 


Insert(p,S.Í);  Chèn vào xâu S từ vị trí ¡ xâu con p 


Val(S.a,1), Đối xâu S ra số và cất vào biến a, nếu thành công ¡ = 0; 
Pos(p,S); Cho vị trí của xâu con trong xâu S, nếu không xuất hiện 
Pos = 0. 


Ví dụ 2-7: Đếm chữ a trong một âu ký tự 


Program Dem_chu_a_trong xau_ky tu; 
US€S CTỈ; 
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Var 
a: String; 
t,d,1: [neger; 
begin 
CÌrsCT; 
write(°Xau a:”); readln(a); 
writeln; 
t:=0; 
d:=0; 
for ¡:=l to length(a) do 
If a[i] = 'a” then 


begin 
đ:= d+l; 
end; 
writeln(°So chu a la:”, đ); 
readin 
end. 


Nhấn Ctrl+F9 cho chạy thử ra kết quả: 
Xan a: phamhamaianh 
So chư a la: 4 
Ví dụ 2-8: Viết chương trình dòng chữ chạy. 


Program Dong_chu_chay; 
US€§ CTỈ: 
VâT 
a: String; 
x,y,n: Hteger; 
begin 
clrscr; 
write('nhap vao xau ky tu a:”); readln(4); 
CÏTSCT; 


gotoxy(12,73; 
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wrIte(a); 
đelay(800); 
x:=12: 
repeat 
clrSCT; 
g0toxy(x+3,7); 
write(a); 
delay(800); 
X:=x+3; 
until x>=§0; 
readin 
end. 

Ý nghĩa các số liệu trên là: trên màn hình soạn thảo Pascal, theo khoảng 
cách con trỏ thì chiều ngang có 80, chiều dọc có 20. Toạ độ x (ngang), y 
(dọc) của vị trí được xác định bằng đơn vị này. Do đó, vị trí đầu tiên của 
đòng chữ là x = 12, y = 7. Để đòng chữ chạy ngang màn hình nên trị SỐ ÿ = 
7 = const Dòng chữ sẽ dịch chuyển mỗi lần 3 đơn vị nên có lệnh 
gotoxy(x+3,7). Lệnh until x>=80 có nghĩa là dòng chữ chỉ chuyển đến hết 
chiều ngang màn hình là dừng lại. 


Delay800 là thời gian dừng sau mỗi nấc chạy. 
5) Bản ghi (Record) 


a. Đặc tính: Record là một cấu trúc bao gồm nhiều thành phần. Các thành 
phần có thể thuộc các kiểu đữ liệu khác nhau và được gọi là các trường 
(Eielđ), mỗi trường đều được đặt tên. 


b. Sử dụng Record: muốn truy nhập một biến Record, ta phải truy nhập 
theo thành phần của chúng, Cú pháp để đến một thành phần nào đó là: 


<Tên biến Record>.<Tên trường> 
e, Chú ý: 
+ Không được dùng các thủ tục đọc và ghi: Read, ReadIn, Write, Writeln 


cho cả một biến kiểu Record. 
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+ Không được so sánh các Record bằng các phép toán quan hệ như: <, 
<=, >=, >. Riêng với các phép toán khác nhau (<>) và = thì có thể được dùng 
với 2 biến có cùng một kiểu Record. 

+ Không được dùng các phép toán số học và logic. 

d. Câu lệnh WITH: Khi cần truy nhập đến nhiều thành phần của một biến 
kiểu Record, ta có thể dùng câu lệnh WITH để chương trình được gọn hơn. 
Dạng câu lệnh WITH: 

WITH <biến kiểu Record> do <Câu lệnh> 
Câu lệnh này có thể lỏng nhau để truy nhập vào các trường ở sâu trong 
Record. 


e. Record có cấu trúc thay đối 
Ví dụ 2-9: Lập danh sách sinh viên, tuổi, điểm thi toán và in ra danh sách 
phải thì lại khi điểm thi < 5. 
Program Danh _sach_sinh_vien_thi_lai; 
uS€S CTỈ; 
Iype 
svien=record 
hoten: string; 
tuoi: string; 


diem: real; 
end; 
Var 
a: array{1.. L0] of svien; 
1,n: Int©geT; 
begin 


write(*nhap hoten sinh vien:”); readin(a[ï]. hoten); 
Write( nhap tuoi:`); reađin(a[ï]. tuoi); 

write(nhap vao diem thị:`); readln(a[ï]. diem); 
end; 


writeln(°Danh sach sinh vien thi lại la:”); 
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for ¡:=l to 3 do 
if a[i]. diem<5 then 
begin 
writeln(°Ho va ten:', a[¡]. hoten); 
writeln(°“Tuoi:`, a{[i]. tuoi); 
writeln(°Diem:”, a[¡]. điem:4:2); 
end; 
readln 
end. 

Lum ý: Chương trình trên dùng cấu trúc a: array[L..10] có nghĩa là phạm 
vị ghi tối đa chỉ có 10 sinh viên . Khi dùng for ¡:=1 to 3 là ta dự định chỉ 
nhập số liệu có 3 sinh viên thôi. 

Sau khi nhập số liệu, ta sẽ có kết quả như: 

Đanh sách xinh vien thí lại la: 
Tran Quoc Duong 

THoi: I9 

Điem: 4.5 


2-8 CHƯƠNG TRÌNH CON, HÀM VÀ THỦ TỤC 


1) Khái niệm chung 


Khi lập chương trình, ta thường gập trường hợp có nhiều đoạn chương 
trình lặp lại nhiều lần, hoặc nội dung giống nhau chỉ thay đổi giá trị tính 
toán. Để tránh phải viết lại nhiều lần, ta chuyển chương trình đó thành 
chương trình con để khi cần thì gọi ra sử dụng. 

Khi lập chương trình lớn, ta cũng chia thành nhiều chương trình con để 
đỡ rối, đễ sửa đổi bổ sung. Mỗi chương trình con sẽ xử lý một công việc nào 
đó. Chương trình con càng độc lập về đữ liệu, về các biến thì càng dễ sửa đổi 
chương trình. 

Thí dụ khi tính lưu lượng mạng lưới thoát nước mưa, xem hình 4-4 và ví 
dụ 4-1, trình tự chung như sau: 


- Chương trình con: tính lưu lượng Q, tại giếng thăm G, do lưu vực F; gây ra 
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- Sau đó lặp lại tương tự: tính lưu lượng Q, tại giếng thăm G; do lưu vực 
F; gây ra 

- Cuối cùng đưa ra kết quả: lưu lượng Q tại giếng thăm G; do cả F¡+ F; 
gây ra là Q= Q,+ Q,. 

Sau đây giới thiệu lý thuyết chung để thực hiện bài toán trên. 


2) Chương trình con: thủ tục 
Một thủ tục bắt đầu bằng từ khoá Procedure và được tố chức như sau: 
Procedure<tên thủ tục>(tham số I: kiểu, tham số 2: kiểu...); 
Vạr 
<khai báo các biến cục bộ> 
Begin 
<các lệnh> 
End; 
(*chương trình chính*) 
Begin 
<lời gọi thủ tục>(danh sách các tham số thực sự) 
<các lệnh> 
End. 
Lưu ý: Sau từ khoá End cuối thủ tục là dấu chấm phẩy (;) chứ không phải 
dấu chấm (.) như cuối chương trình chính. 


3) Chương trình con: Hàm 
Một hàm bắt đầu bằng từ khoá Funtion và được tố chức như sau: 


Funtion<tên hàm>(tham số I: kiểu, tham số 2: kiểu...): Kiểu hàm 


Vaăr 

<khai báo các kiểu biến cục bộ> 
Begin 

<các lệnh> 

tên hàm:=<giá tnỊ>; 
End; 


(*chương trình chính*) 
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Begin 
Lời gọi hàm; 
<tên hàm>(danh sách các tham số thực sự) 
End. 
4) Sự khác nhau giữa hàm và thủ tục 
Sự khác nhau cơ bản giữa hàm và thủ tục là: 


- Hàm có một giá trị thông qua tên hàm và hàm có thể tham gia vào các 
biểu thức tính toán. 


- Thủ tục không cho một giá trị nào cả. Và đương nhiên, tên thủ tục 
không thể tham gia vào các biểu thức tính toán, so sánh. 


Trong nhiều trường hợp, hàm tham gia như một chương trình độc lập. 
“Trong thân hàm, bao giờ cũng có lệnh gán giá trị cho tên hàm. 


Các tham số được ghi sau tên hàm và thủ tục là các tham số hình thức. 
- Trong thủ tục, các tham số hình thức có 2 loại: 

+ Các tham số khai báo sau từ khoá Vør là các tham số biến. 

+ Các tham số khai báo không có chữ Var là tham số giá trị. 

- Trong hàm chỉ có tham số có giá trỊ. 

Tham số thực sự là tham số dùng trong lời gọi hầm hay thủ tục. Trong thủ 
tục, các tham số giá trị thường là các biến để chứa dữ liệu đưa vào thủ tục, 
các tham số biến là các biến mà kết quả tính toán của thủ tục sẽ chứa vào đó. 
Khi ra khỏi thủ tục, ta vẫn có thể sử dụng chúng. 

5) Biến toàn cục, biến cục bộ và truyền dữ liệu 
a. Biển toàn Cục 
Biến toàn cục là biến khai báo ở đầu chương trình chính. Biến này tồn tại 


trong suốt thời gian tồn tại của chương trình. Các biến này có thể thay đổi 
giá trị ở chương trình chính cũng như trong các chương trình con. 


b. Biến cục bộ 
Biến cục bộ là biến được khai báo ở đầu chương trình con. Sau khi ra khỏi 


chương trình con thì biến này bị xoá. Biến cục bộ có giá trị trong chương 
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trình con và trong các chương trình con khác gọi từ chương trình con chứa 
biến này. 

Nếu ta khai báo biến cục bộ trùng với biến toän cục của chương trình 
chính thì máy vẫn không thông báo sai sót. Trong trường hợp này, máy vẫn 
chuẩn bị một ô nhớ khác để lưu trữ 2 biến. Khi ra khỏi chương trình con thì 
biến cục bộ được giải phóng. 

Danh sách các tham số thực sự trong lời gọi phải tương ứng với các 
tham số hình thức trong khai báo chương trình con và chúng phải tương 
ứng về kiểu. 

c. Truyền dữ liệu 

Khi gặp một lời gọi tới chương trình con, máy sẽ thực hiện các bước sâu: 

- Cung cấp bộ nhớ cho các biến cục bộ 

- Truyền các giá trị của các tham số trong lệnh gọi chương trình con (nếu 
có) các tham số tương ứng được khai báo trong lời gọi chương trình con. 

- Thực hiện các lệnh trong chương trình con. Trong khi thực hiện các 
lệnh của chương trình con, các biến cục bộ có thể bị thay đổi nhưng không 
làm ảnh hưởng đến chương trình chính. Tham số trong chương trình con có 
2 loại: Tham số giá trị và tham số biến. Các tham số trong lời gọi chương 
trình con và các tham số được khai báo trong chương trình con phải tương 
ứng với nhau. 

Ví dự 2-10. Sử dụng thủ tục. 

Var 

S1,s2,tong:Ïnterger; 

Procedure Tĩnh; 

Begin 
tong:=s l+s2; 
End; 
(*Chương trình chính*) 
Begin 
Write(°sl=”);readln(s Ì ); 
Write(*s2=');readin(s2); 
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Tỉnh; 
Wreadln(tong); 
Readin; 

End. 


Trong chương trình trên, ta đã không truyền tham số nào vào chương 
trình con mà sử dụng luôn các biến toàn cục là s7, s2, rong để tính toán các 
chương trình con. Vì biến toàn cục có ý nghĩa trong tất cả các chương trình 
con nên điều này không ảnh hưởng gì đến nội dung chương trình. 

Ví dụ 2-11: Truyền tham số cho thủ tục. Nhập vào 4 số, cứ sau khi nhập 
xong hai số thì thông báo tổng của hai số này. 

Var 

S1,s2,tong:Ínterger; 

Procedure Tình(a,b); 

Begin 
Tong:=s]+s2; 
End; 
(*Chương trình chính*) 
Begin 
Write(°sI=`);readin( l); 
Write(*°s2=`);readln(s2); 
Tỉnh(s1,s2); 
__ Writeln(tong); 
Readin; 
Write(s1= ');readln(s1); 
Write( s2= ');readln(s2); 
Tính(s1 32); 
Writeln(tong); 
Keadln; 
End. 

Khi ta thực hiện chương trình, nhập giá trị vào hai biến s7, s2 và lời gọi 
thủ tục Tinh(s1,s2) sẽ truyền hai giá trị của biến 3, s2 vào hai biến tương 
ứng trong thủ tục là a và b. Biến ong sẽ cộng hai giá trị trên lại. Trong các 
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biến trên, các biến sau là biến toàn cục: s7, š2, tong và các biến a, 6 là biến 
cục bộ. Các biến này chỉ tồn tại trong thu tục in. Nếu ta không khai báo 
biến Tong ở trong chương trình chính mà ở thủ tục 7in như sau: 
Procedure Tìỉnh(a,b:Interger); 
Vạr 
“Tong:Ïnterger 
thì câu lệnh: 
Writeln(tong); 


ở trong câu lệnh sẽ bị thông báo lỗi vì biến Tong ở trong thủ tục Tinh đã 
được giải phóng khi ra khỏi thủ tục này. 


Ví dụ 2-12: Sử dụng hàm. 
Var 

a,b:ÏntergeT; 
Funtion Tĩnh:interger; 

Begin 

'Tinh:=a+b; 

End; 


a:=l;b:=2; 
writeln(tinh); 
. readln; 
End. 
Kết quả nhận được là: 
3 
Trong chương trình trên, tên hàm đã chứa một giá trị là tổng của hai số a 
và b do lệnh: 
Tình:=a+b; 
quy định. Khi khai báo một hàm, ta phải khai báo kiểu hàm và kiểu dữ liệu 
này sẽ được truyền về chương trình chính cũng như đùng trong các phép 
toán trong hàm. 
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4. Truyền dữ liệu cho các tham xố giá trị 


Chúng ta xét chương trình sau đây: 


Var 
tg:interger 
Begin 
tg:=â; 
a:=b; 
b:=tg; 
End; 
(*Kết thúc chương trình con, bát đầu chương trình chính") 
Begin 
a:=11;b:=22; 
Đổi_chỗ(a,b); 
writeln(a=°,a,`b=',b); 
readln; 
End. 


Mục đích của chương trình này là thay đổi giá trị của hai biến a và b. Và 
như ta đã thấy trong chương trình con đã có các lệnh để đổi giá trị của hai 
biến thông qua biến tg. Khi ta thực hiện chương trình thì kết quả nhận được 
như Sau: 

a=11 b=22 

Như vậy đã không thực hiện được yêu cầu để ra vì các biến này vẫn giữ 

nguyên giá trị ban đầu. ¿ 
__ Cách khai Báo trong chương trình con như trên gọi là khai báo theo tham 
số giá trị. Các biến khai báo theo dạng này có thể bị thay đổi trong chương 
trình con nhưng hoàn toàn không ảnh hưởng đến giá trị của biến đó (nếu có) 
ở chương trình chính. 
Ta sẽ thực hiện được việc thay đổi giá trị nếu khai báo như sau: 
Procedure doi, cho(a,b:interger); 

Cách khai báo tham số như trên gọi là tham số biến sẽ được xét ở mục 

dưới đây. 
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e. Truyền dữ liệu cho các tham số biến 
“Ta hãy xét ví dụ sau đây: 
Var 
a.b:Interger; 
Procedure Tinh(Var x,y:interger); 
Bcgin 
x:=x*10; 
End; 


Bcgin 
a:=l1;b:=22; 
Tinh(a,b); 
Writeln(°a=”, a,' b=, b) 
Readln; 
End. 
Kết quả nhận được khi thực hiện chương trình như sau: 
a=l10 b=22 
Như ta đã thấy ở trên, biến a tăng lên 10 lần do lệnh 
x=x*10 ˆ 
Biến x và y trong chương trình con được khai báo sau từ khoá Var và 
được gọi là hàm số biến. Việc thay đổi giá trị của nó sẽ làm cho biến tương 
ứng với nó (biến a) thay đổi theo. 
Ví dụ 2-13. Sử dụng chương trình con, lập chương trình giải phương trình 
bậc hai: 
a.x?+b.x+c=0 
Nội dung chương trình: 
Program Giai_phuong_trinh_bac_ hai ; 
Var 
aa, bb, cc, y1, y2: Real ; 
kq1: Interger; 
Procedure ptbh(a,b,c: Real; var x1, x2: Real; var kq:interger): 
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Var 
Delta, căn: real; 
Begin 
Delta:=b*b — 4*a*c; 
If delta=0 then 
Begin 
x1:=-b/(2*a); kq:=l; 
End; 
If deita>0 then 
Begin 
kq:=2; căn:=sqrt(delta); 
x1:=(-b+căn)/(2*a); x2:=(-b-căn)/(2*a); 
End; 
Enả; 
(******####*) 
Begin 
Write(“vào số a=”);readÌn(aa); 
Write(°vào số b=");readln(bb); 
Write(“°vào số c=');readln(cc); 
ptbh(aa, bb, cc, yl, y2, kq L); 
If kq1=0 then 
WritelnCfPhương trình vô nghiệm); 
Tf kqI=l then 
Begin 
Writeln(°Phương trình có nghiệm kép)); 
Wniteln(°xI=x2='yl:10:2); 
End; 
lf kq1=2 then 
Begin 
Writeln(°Phương trình có hai nghiệm phân biệt”); 
Writeln(“xI=”,y1:10:2); writeln(fx2=”,y2:10:2); 
End; Readln; 
End. 
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6) Phương pháp đệ quy 
a. Định nghĩa 
Đệ quy là kỹ thuật lập trình mà từ một điểm trong thân chương trình con 


lại gọi chính nó. Phương pháp đệ quy là một phương pháp ngắn gọn, nhưng 
do có nhiều lần gọi chương trình nên tốn bộ nhớ và thời gian thực hiện. 


b. Ví dụ 2-14. 
Lập chương trình tính giai thừa của một số n. Khi dùng lệnh Før ta sẽ lập 
như sau: 
Program Tính_ giai_ thừa; 
Var 
n:interger; 
Funtion Giai_thua: Longint; 


Var 
1:I€TBET; 
Gt:Longint; 
Begin 
Gt=l; 
Tf n>0 then 


For i:=1 ton do Gt:=Gt*i; 
Giai_thua:=Gt; 


End; 
Œ hd sxG sát T2 ag6, eo) „ở 
Begin 
'Writeln(°Nhập số n=”);Readln(n); 
Writeln(Giai_ thua); 
Readin; 
End. 


Khi sử dụng đệ quy, ta có thể lập chương trình như sau: 
Var 


n:interger; 
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Funtion Giai thua(n:interger):Longint; 


Var 
Gt:Longint; 
Begin 
Ifn=0 then giai thua:=l else 
Giai thua:=n*GIai thua(n=]); 
End; 
(* 1 0e CAN TU x2 12J0 +) 
Begin 
Write(°Nhập n=`);Readln(n); 
Writeln(Giai_thua(n));readln; 
End. 


2-9, LỆNH GỌI THỦ TỤC, HÀM VÀ THOÁT RA KHỎI CHƯƠNG TRÌNH 
L) Lệnh gọi thủ tục và hàm 


Câu lệnh gọi thủ tục hoặc hàm là câu lệnh gọi thực hiện thủ tục hoặc hàm 
chuẩn, hay thủ tục hoặc hàm tự tạo trước đó. Câu lệnh này gồm có Tên thủ 
tục hoặc Tên hàm, tiếp theo có thể có hoặc không danh sách các tham số 
đặt giữa hai đấu øgoặc đơn (). Danh sách các tham số là một dãy các Biến 
và Biểu thức được đặt cách nhau bởi đấu phẩy (,). Trong quá trình thực hiện 
chương trình nếu gập câu lệnh gọi thủ tục hay hàm, điều khiển được chuyển 
đến thủ tục hay hàm có /ên được chỉ định, đồng thời giá trị các tham số được 
truyền cho thủ tục hay hàm theo các cách: Truyền bằng trị, truyền bằng 
biến hoặc truyền kết hợp (vừa trị vừa biến). Sau khi thực hiện xong thủ tục 
hoặc hàm, chương trình thực hiện tiếp tục từ câu lệnh đứng ngay sau câu 
lệnh gọi thủ tục hoặc hàm. 

Ví dụ 2-15. Câu lệnh gọi thủ tục và hàm 

Program Lệnh _gọi_thủ_tục_ và hàm; 
Uses Crt; 
Var 
n:Interger; 
EUNTION Giai thừa(x:Interger)›:Longim; {Hàm tự tạo} 
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Var 
1:Interger; 


gt:Longlnmt; 
Begin 
gt:=l; 
For i:=l To x Do 
Gt:=gUi; 
Writeln(°+Giai thừa của',x,`=”,gt); 
End; 
BEGIN 
ClrSr; (Gọi Thủ tục chuẩn để xoá màn hình) 
'Writeln(“LENH GOI THU TUC VA HAM”}; (Lệnh gọi thủ tục chuẩn) 
Writeln(f---~---~~---<==~~==~~= % {Lệnh gọi thủ tục chuẩn} 
Write(Nhap so nguyen N=)); {Lệnh gọi thủ tục chuẩn) 
Readin(n); {Lệnh gọi thủ tục chuẩn) 


Writeln(++Binh phuong cua”,n,`=°,Sqr(n)); v 
{Lệnh gọi thì tục và hàm chuẩn} 


'Writeln(°+Can bac hai cua”,n,`=° ,Sart(n):0:2); 


Giaithua(n); {Lệnh gọi hàm tự tạo} 

Writeln; {Lệnh gọi thủ tục chuẩn) 

Writeln(Bam phim <Enter> đe ket thuc”); (Lệnh gọi thủ tục chuẩn) 

Readln; {Lạnh gọi thủ tục chuẩn) 
END. 


2) Thủ tục thoát khỏi chương trình 


Trong lập trình, nhất là các chương trình dài, hoặc ngay cả những chương 
trình con, đôi lúc cũng cần dừng chương trình tại một vị trí nào đó để kiểm 
tra các kết quả trung gian mà không phải chạy hết chương trình. Để thực 
hiện điều này Pascal cung cấp cho ta 2 thủ tục sau: 

- Thủ tục Exi: Nếu thủ tục Exit đặt trong chương trình con thì thoát 
chương trình con giữa chừng để trở về chương trình chính. Nếu exit đặt trong 
chương trình chính thì sẽ chấm dứt chương trình chính, không thực hiện các 
lệnh còn lại sau thủ tục này. 
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- Thủ tục Halt: Dù cho thủ tục này đặt trong chương trình con hay 
chương trình chính, khi gấp thủ tục này sẽ chấm dứt thực hiện chương trình 
để trở về hệ điều hành và xuất hiện một thông báo mã thoát (Exí: Code). 
Halr hoặc Halt(0) là thoát về hệ điều hành không có lỗi. 

Chương trình dưới đây minh hoạ những điều trình bày ở trên. Ta hãy nạp 
vào máy và chạy thử. 

Ví dụ 2-16. Sử dụng thủ tục Exi hoặc Hai để thoát khỏi chương trình 
hoặc chương trình con. 


Program Thoat_chuong_ trinh; 


Var. 
N:Interger; 
Ch:Char; 
Begin 
Repeat 
Write(°Bam mot phim, “t” đe thoat”); 
Readln(ch); 
If (ch=°t') or (ch=,T,) then 
ExIt 
Elsse 
Begin 
Wnite(°-Nhap mới so nguyên n=`); 
Readlní(n); 
'Writeln(°+Binh phuong cua`,n,`=”,Sqr(n)); 
'Writeln(°+Can bac hai cua`„n,`=`,Sqrt(n):0:2); 
End; 
Write(*-Thuc hien tiep khong (c/K)`}; 
Readln(ch) 
Until (ch=°k`) or (ch='K”); 
End. 


Khi chạy chương trình nếu ngay từ đầu ta gõ chữ “ hoặc “T” thì sẽ chấm 
dứt chương trình, bỏ qua các lệnh còn lại. 
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Chương 3 


LẬP TRÌNH TURBO PASCAL 
THIẾT KẾ ỔN ĐỊNH NỀN ĐƯỜNG 


3-1. KHÁI QUÁT CHUNG. THUẬT NGỮCHÍNH 


1) Khái quát chung 
Để thiết kế, kiểm tra sự ổn định của nên đường, từ đơn giản đến phức tạp, 
thường có các nội dung sau: 

- Kiểm tra ổn định mái ta luy 

- Thiết kế tường chắn ở nơi đắp cao, đào sâu, ven hồ, sườn núi dốc 

~ Tính toán độ lún, tốc độ lún của nên thiên nhiên dưới nền đường đấp 

- Kiểm tra sự ổn định của nên thiên nhiên dưới nền đường đắp 

- Nếu thấy không ổn định, phải để ra biện pháp gia cố nền (bằng cọc cát, 
bãc thấm, vải địa nhân tạo v.v...) 

Vẻ kiểm tra sự ổn định của nên thiên nhiên dưới nền đường đắp, là một 
bài toán hay gập khi thiết kế đường trên vùng đất yếu (vùng đồng bằng Bắc, 
Trung, Nam Việt Nam). Có nhiều phương pháp như: kiểm tra theo cung 
trượt Bishop, kiểm tra theo đường đẳng trị ứng suất (Ko) để xác định vùng 
biến dạng dẻo... 

Trong chương này, sẽ để cập đến phương pháp kiểm tra, thiết kế ổn định 
nên thiên nhiên dưới nên đấp bằng vùng biến dạng dẻo, tính độ lún, tốc độ 
lún v.v... 

Các vấn để sẽ được trình bày theo trình tự: tóm tắt lý thuyết chung, 
phương pháp tính toán bằng tay, phương pháp lập trình tính toán theo Turbo 
Pascal. 
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Chú ý: Khi lập trình trong Turbo Pascal chỉ dùng được chữ Việt không 
đấu để diễn giải, nhưng để dễ hiểu, đôi khi tác giả vẫn dùng chữ Việt có đấu 
trong chương trình Pascal. 

2) Tóm tắt lý thuyết cơ học đất 

Để nắm vững bản chất các bài toán tính ổn định nên đường trong chương 
này, ta cần tìm đọc ở các tài liệu chuyên sâu về lý thuyết cơ học đất. Để hỗ 
trợ, sau đây chỉ nêu tóm tắt một số nội dung chính về cơ học đất. 

Tuy nhiên, cũng cần nhấn mạnh thêm rằng: việc nắm vững lý thuyết cơ 
học đất sẽ giúp ta phân tích nhiều “trường phái”, quan điểm tính toán khác 
nhau, qua đó cũng hiểu rõ các chương trình tính toán (phần mềm — Software) 
của máy tính đã được lập có ưu khuyết gì, và ta sẽ tự lập chương trình theo 
cách tính riêng mà ta cho là hợp lý... 


a. Các thành phần hợp thành đất và tác dụng lần nhan giữa chúng. 
Đất gồm 3 thành phần chính như hình 3-1: 

+ Thành phần hạt 

+ Nước 


+ Khí 


Trọng lượng Thể tích 





Hình 3-1: Các thành phần của đất 


Các chỉ tiêu cơ lý thông dung của đất được xác định bằng công thức định 
nghĩa, tính toán, liên hệ như trong bảng 3-].. 
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Bảng 3-1. Các chỉ tiêu cơ lý thông dụng của đất 








THỂ Chỉ tiêu HN 
tự công thức cơ bản 
1 | Trọng lượng riêng của đất G 
y= V 
2 | Trọng lượng riêng ướt G,+G¡ 
Hàn “Vẻ 
3 | Trọng lượng riêng . Gị +Ói 
no nước (Gn' là trọng T V 
lượng nước khi đầy 
lỗ rỗng) 
4| Trọng lượng riêng đẩy ¿ On + XnÝ 
nổi (yạ trọng lượng riêng V 
của nước, = l} 
5| Trọng lượng riêng khô GØ, 
Hnh 
6 | Trọng lượng riêng của _Ổi 
hạt đất Ÿh Vụ 
7 | Titrọng hạt đất (hoặc Âu Gạ 
đặc hoàn toàn) T.Vy 
8 ¡ Độ ẩm của đất W% ~ Ởa. [00 
ì h 
9| Độ no nước của đất G Vụ 
(số thập phân) w 
ỗ Ni 
10 | Độ rỗng n% = + 100 
V 
11 | Hệ số rỗng & ^A 
Ỉ Vụ 





Công thức liên hệ ~ 


Ghi chú 
‹_ (A — lu 
Y = ST =Yng Ta 
l+e 
Ÿw 


c E——————.g còn gọi là 
G0 DïW 


y„ là y„, W tính bằng % 


A=Jh Ty, =1->A=Yy 
Tn 


Thường dùng như độ ẩm tự 
nhiên 
G= 0,01WA 
e 
_— AyÐ0IW 
Ayad+0,01W)-—y 


e 





Nn xI1090, n càng bé 


+e 
càng chặt 
c 0a 
Tk 
_ Ar,(+0,0In) 


Y 
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14 
l5 


l6 


20 


21 


2 


23 


24 








Bảng 3.1 (tiếp theo) 





Chỉ tiêu 





Độ ẩm bão hòa 

Giới hạn sệt, hoặc nhão, ` 
chảy 

Giới hạn dẻo 

Chỉ số dẻo 


Chỉ số nhão (Độ sệt) 


Độ chặt của đất 


Độ chặt của cát 
Gradien thủy lực 


Định luật thấm Darcy  † 
Hệ số thấm 

Độ lún biến dạng tương 
đối 


Mô đun biến dạng 


Độ lún đàn hồi tương đối 





Định nghĩa 
công thức cơ bản 








1; 


Tk max 


e 


D= : 


mã — 


€ 


max ˆ Ÿmin 





{F - diện tích vuông góc qua 


Công thức liên hệ — 
Ghi chú 


A-ty 
Wụu = ˆ 





Thí nghiệm bằng độ lún của 
chùy 
Thí nghiệm bằng lăn tay 


Tmax còn gọi là dung trọng 
khô lớn nhất (MDP) thí 
nghiệm bằng cối proctor 


1, 





Còn gọi K, = hoặc 
„ max 

ODD 

1,00 >D>0,67 là cát chặt 


0,33 > D >0 là cát xốp 
Ah - tốn thất cột nước 
¡ - chiều đài đường thấm 


đường thấm 

1 - thời gian thấm - Q = vFtI 
đơn vị cm/sec, cm/năm, đất 
sétk=Lx 107 cm/sec 

8 - độ lún toàn bộ mẫu thí 
nghiệm 

h - chiều cao mẫu thí nghiệm 


$tn 


l+ 
E¿ =BEu = 





a 


Ø„- áp lực thẳng đứng lên 
mẫu đất 





Sạn - độ lún đàn hồi của mẫu 
đất 
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Bảng 3.1 (tiếp theo) 





L 
25 


26 
27 


28 


29 


30 


32 


33 








Chỉ tiêu 


Mô đun đàn hồi 


Hệ số nén hông 


Hệ số nở hông 


Hệ số nén lún 


Độ lún toàn phần 5 


Hệ số cố kết 


Độ cố kết toàn phần 


Định nghĩa 


công thức cơ bản 


E=- 
đh 
%; 





( Ơ 
k=—* 


Ơơ, 


Š 


—1+É 
Si S2, 
Pạ —PỊ\ 


a 


3= AP.h 





l+& 


_ kq+e¡) 
Tạa 


C, 


U=1~-(1-Up) 
(1= ) 


Độ cố kết ở thời điểm "" § 


theo phương thẳng đứng 


Thời gian 


U,=Yt 
v8 











Công thức liên hệ — 
Ghi chú 


Thông thường 


Eạp = (25 - 3,0)E¿ 

Xét ảnh hưởng thí nghiệm 

mẫu không cho nở hông, 

Xác định để tìm các trị số áp 

lực đất phù hợp với thực tế 

Đơn vị cm /kG là quan hệ 

biến đạng và lực tương tự 

định luật Hook 

Sẽ Anh dùng khi đất biến 
ø 


dang 


AP (kG/em?) là áp lực 
B=l—-^P— ¡ thường B=0.8 
-# 


Đơn vị cm“/sec, m”/năm, 
m°#Wr 

e¡ - độ rỗng ban đầu 

Đơn vị U% — Uy độ cố kết 
ngang 

Ú, - độ cố kết đứng 

S, - độ lún theo thời gìan t. 
Yêu cầu S, = 0,95 thì cho 
phép thi công mặt đường. 
S=UyS 

hy- bề dày tính toán lớp đất 
hạ = H khi thoát nước ! chiều 
hạ = khi thoát nước 2 


chiều 
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Xét riêng về tính chất cơ học của đất, gồm các tính chất sau: 

- Tính thấm: là đặc tính quan trọng của đất, nó ảnh hưởng đến khả năng 
chịu lực của đất và quá trình lún; nó còn tạo áp lực thuỷ động gây xói — Xói 
mòn, trương nở ta luy. Tiêu biểu cho tính thấm là hệ số thấm K (cm/5, 
cm/nãm) . 

~ Tính nén lún: một đặc tính cơ học dễ nhận ra của đất là bị lún khi chịu tải 
trọng. Với đất đính, quá trình lún dưới tác dụng của tải trọng xảy ra khá lâu, vì 
nước bị ép đẩy ra rất chậm. Đó chính là hiện tượng lún cố kết, thường phải xét 
đến khi đắp nền đường qua vùng đất yếu và thiết kế cải tạo nền đất yếu. 

Tiêu biểu cho tính nén lún là các chỉ tiêu hệ số nén lún a (cm”/G) (có 
nơi còn ký hiệu Cc), mô đun biến dạng E, (kG/cm?), mô đun đàn hồi E, 
cường độ chịu lực nến của nền đất ø (kG/cm)). 

- Cường độ chống cắt của đất: là chỉ tiêu quyết định giới hạn bền của đất 
để không bị nứt, trượt. Cường độ chống cắt của đất chủ yếu phụ thuộc vào 
góc nội ma sắt ‹p (độ) và lực đính C (kG/em?). 

Theo lý thuyết Coulomb (1773): cường độ chống cắt của đất theo công thức: 

S =ơtgo +C -Ú) 

ơ - ứng suất nén tác dụng lên mặt phảng đang Xét, (kG/cm?); 

@ - góc nội ma sát của đất, (độ): 

€ - lực dính, (kG/cm?). 

Hình 3-2: biểu điễn quan hệ công thức (3-1) với đất thông thường, cát và 
đất sét thuần tuý. 


3) b) 9 








Hình 3-2: Đồ thị guan hệ r, C, @ 
a) Đất thông thường, b) Cát (C = 0), c) Đất sét thuần tuý ( @= Ô) 
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Nền đất theo một mặt phẳng nhất định sẽ ổn định nếu ứng suất cắt t trên 

mặt phẳng ấy nhỏ hơn S. 
t<§ (3-2) 

Khi thiết kế ổn định nền đường, cải tạo nền đường (như bằng bấc thấm...) 
tất cần xác định được chỉ tiêu C, ọ của nền đất, Hiện có nhiều phương pháp 
thí nghiệm C, @ và cũng có nhiều quan điểm khác nhau vẻ cách dùng trị số 
C, @ khi tính toán. 

Người ta đã rút ra kết luận rằng: dùng máy nén 3 trục để thí nghiệm chỉ 
số €, @ theo 3 trạng thái là phù hợp với các điều kiện thực tế nhất, bao gồm 
cả hiệu quả của áp lực nước lỗ rồng. Tóm tắt như bảng 3-2. 

Thí nghiệm nén 3 trục được tiến hành theo 2 giai đoạn: 

1- Tạo áp lực hình cầu trong buồng nén ơ;, tương đương với một điểm 
trên vòng Morh 

2- Tăng liên tục biến thiên của áp lực tới khi mẫu bị phá hoại theo một 
mặt phẳng nghiêng theo một góc œ 


Bảng 3-2. Phương pháp thí nghiệm C, ọ và phạm vi áp dụng 





Giai đoạn Thông số Tương ứng với 
thu được tình trạng thực tế 
Đắp nhanh trên nền 
không cố kết | không thoát nước & chưa cố kết, thấm ít 





€ U „=0 |Đối với đường đắp cao. 


cốkết | không thoátnước | C„=C, | Lính toán ổn định tức thời 
của ta luy 


D lỒn định theo thời gian của 
thoát nước ta luy. Đắp chậm theo giai 
đoạn trên nền thấm nước 





Ghỉ chú bảng 3-2: U, C, D là chữ dâu tiếng Anh Unconsolidated, Undrained, 
Consolidated, Drained. 


3) Ký hiệu thuật ngữ chính dùng khi lập chương trình Pascal 


Khi tính toán cơ học đất, nền móng ta đã quen thuộc với một số ký hiệu 
như y, @, £, Ø, t..như bảng 3-l trên. Nhưng khi lập trình Borland Turbo 
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Pascal (BP, TP) ta không thể dùng các ký hiệu đó được. Bảng 3-3 sau đây 
giới thiệu một số ký hiệu, thuật ngữ chính thường dùng. Một số khác sẽ giới 
thiệu trong từng công thức cụ thể sau. 


Trong lập trình Pascal không phân biệt chữ hoa, chữ thường, tuy nhiên ta 
vẫn tự phân biệt chữ hoa, chữ thường để dễ nhìn. 


Bảng 3-3. Ký hiệu, thuật ngữ chính 














Ký hiệu Đơn vị Ý nghĩa 
a,œ độ Góc điểm tính toán nhìn đáy nền 
r 'radian Góc điểm tính toán nhìn đáy nền (=pi*a/180) 
C kG/cm? T/m? | Lực dính 
Œ: cm°/G,mˆ/T | Hệ số nén lún 
Cụ cm?/s, m?/năm | Hệ số cố kết đứng 
Cụ cm/s,m”/năm | Hệ số cố kết ngang 
©,E ˆ Hệ số rỗng 
F,@ độ Góc nội ma sát của đất nền 
f radian Góc nội ma sát của đất nền (=pi*F/180) 
Gy g/cm”, T/mỶ Trọng lượng đơn vị, dung trọng đất 
GI, Yn g/cm”, T/m” | Dung trọng đẩy nổi 
Gt,A _ Tỷ trọng hạt đất 
B,ơ kG/cm2, Tim Ứng suất pháp tác động lên phân tố đất 
Ky cm(s. Hệ số thấm đứng 
Kụ cm/s Hệ số thấm ngang 
pl,% Ặ Số PI 
S cm, m Độ lún cố kết 
Thay, Šimuk kG/cmˆ, T/m” | Úng suất tiếp lớn nhất của đất 
t,tg - Hàm lượng giác tg (t = sinfl/ cosf1) 
t tháng, năm | Thời gian lún cố kết (công thức 3- ) 
Ủy, U, % Độ cố kết ngang, đứng 
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3-2. SƯỐN ĐỊNH CỦA NỀN THIÊN NHIÊN DƯỚI NỀN ĐƯỜNG ĐÁP 


1) Lý thuyết xác định vùng biến dạng dẻo 


a. Xác dịnh sơ đô tính toán tải trọng tác dụng do nên đắp và xe chạy 


Tải trọng xe chạy thường tính 1,00 T/m? hoặc 0,10 kG/cm? 
Có 2 dạng sơ đồ thường dùng là: 

+ Tải trọng hình băng phân bố đều 

+ Tải trọng hình thang 


Trong tính toán để đơn giản, có thể thay thế tải trọng tiết diện hình thang 
bằng hình chữ nhật tương đương, có cường độ tải trọng Pạ phân bố đều trên 


đáy B=2b+a. 


b. Tính ứng suất nên và vùng biến dạng dẻo trường hợp tải trọng băng 


Xét ứng suất một phân tố đất M bất kỳ nhìn đáy nền 2b một góc œ. Ứng 


suất pháp thẳng đứng và nằm ngang tính theo công thức: 
G,= T1 {[œ - sinœ. cos(œ, - œ¿)] 
m 


P - 
Ø,= —# [œ + sinơ. cos(œ; - œ›)} 
7L 
Ứng suất tiếp trên mặt nằm ngang và thẳng đứng: 
PB... 
Tx¿ = T„y= ——. SHG. Sin(Œ, + 0;) 
TL 
Ứng suất tiếp lớn nhất 
Gø-Ơøy PP... E.- 
Tmax = Tay ẽ T—Š=—9sing = —#sin r 
l 2 TL T 


G¡ Và Ø; = Øs (với bài toán phẳng) là các ứng suất chính 


G¡=B,= J5 (œ + sinœ) = c (r + sin r) 
T T 


P P, . 
Si ĐH TH (r ~ si r) 
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G-3) 


3-9 


@-5) 


G-6 


Để đánh giá độ ổn định nền thiên nhiên, ta thường dùng phương pháp 
đường đẳng trị Kụ. K„ là hệ số ổn định chống trượt tại một điểm tính toán 
trong đất nền, trị số bằng: 


K,= 2\/A,(A, ~tg0) =2x Sart[A, x(A„ ~ Ð] @-7) 


_ đitg9 +C _ẨB,Yt+C 


Trong đó: Áo BB 
I—Đ L9 


(3-8) 


ọ - góc nội ma sát của nên thiên nhiên 

C - lực dính của nền thiên nhiên 

Tại trục Z có Gø¡=Ơ, 

G;=Ø, 

Thực tế tính toán, ta dùng các trị số œ khác nhau rồi tính ơi, ơạ, A„ K; 
Tại trị số œ¿ cho K„ = 1 ta xác định độ sâu H, của vùng biến dạng đẻo (vùng 
có K„ <1). Nếu H, < b là nền ổn định, H, > b là nền không ổn định. 

c. Ứng suất nên khi lớp đất bị nén trên nên cứng 


Trường bợp này ứng suất sẽ lớn hơn các trị số tính toán cho nửa không 
gian đồng nhất. 


Nếu là tải trọng bảng phân bố đều. theo tính toán của Egorov thể hiện 
trên bảng 3-4. 


Trí số ứng suất tính theo công thức: 

ø,=K.P _—-9) 
K - hệ số tra bảng 3-4; 
P - áp lực nền đắp lên mặt đất (kGÖ/cm?). 


Bảng 3-4. Trị số K trong công thức (3-9) 














Khi lớp không biến đạng nằm ở độ sâu NỈ 
nh h=b h=2b h=5b 
1 2 3 4 
1,0 1,000 1,00 1,00 
0,8 1,009 0,09 0.82 
0,6 1,020 0,92 0,57 








G7 





Hình 3-3 thể hiện biểu đồ phân bố áp lực thẳng đứng khi có nền cứng 
(đường I, 2, 3) và khi không có nền cứng (đường 4). 


Hình 3-3: Phân bố áp lực thẳng đứng 
trong nên khi có lớp không biến dạng 
tham cao" 
1. Khi độ sâu lớp không 
biến dạng là b 
2. Khi độ sâu ấy là 2b; 
3. Khi độ sâu là 5b 
4. Đường phán bố ứng suất trong 
nữa không gian đông nhất 








4d. Tính ứng suất nên các trường hợp tải trọng khác 

Ta còn có các trường hợp tính ứng suất cho các tải trọng khác như: 
- Lực tập trung tác dụng thắng đứng 

- Tải trọng phân bố đều trên diện tích hình chữ nhật 

- Tải trọng hình tam giác phân bố trên diện tích hình chữ nhật 

- Tải trọng phân bố đều trên diện tích hình tròn và vành khuyên 

- Tải trọng nằm ngang phân bố đều v.v... 


Cách tính toán ứng suất được lập thành báng, ta có thể tìm đọc trong một 
số sách về cơ học đất, thiết kế nền móng công trình, tính độ lún v.v... Tuy 
nhiên, do máy tính điện tử hiện nay đã khá phổ cập, ta có thể dựa vào công 
thức, lập mẫu bảng tính trên máy tính (như bảng tính trên Excel), sẽ tính 
nhanh ra các kết quả với nhiều thay đổi cần thiết của thông số đưa vào. 
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Ví dụ 3-1: Tính vùng biến dạng dẻo của nền thiên nhiên dưới nền đấp cao 
3m bằng cát đen đầm chặt có y = 1.90 T/m”. Kích thước, địa tầng như bảng 3-5, 


Po = 0,87kGlcm. 


hình 3-4. 
































b= 20m bz 20m 
Bùn sét hữu cơ 
W=83% - yự= 1446 Giem 
9 
œ=6  C=0081kGiem. 
Non §@tdiodimg CC CC 
W=E22% y„=0874G/em. 
ặ 
@=14— C=048 kGfem. 
Hình 3-4: Nên đắp theo ví dụ 3-1. 
Bảng 3-5 
¬ Poảmi Lực dính Hệ số 
Lớp | Tên đất tự nhiên, @ › thấm €, 
Ws% C,T/m 
1 Bùn sét 
hữu cơ 























1. Xác định tải trọng P„ 


- Tải trọng do cát đấp cao 3 m: 
qị = 1,90 x 3,00 = 5,70 T/m” = 0,57 kG/cm? 


- Tải trọng do xe chạy khi thi công q; = 1,00 T/ mˆ =0,10 kG/em? 
Pạ=q¡ +q;= 5,7 + 1.0 = 6,7 T/ mỶ= 0,67 kG/ em? 
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2. Xác định toa độ các điểm và tính toán 

Vẽ nền đắp và địa tầng theo cùng tỷ lệ (xem hình 3-5), bước đầu “cảm thấy”: 
với œ = 50” ở độ sâu khoảng 40 m là vùng nguy hiểm cần quan tâm. Vậy ta có 
thể lần lượt tính K, với œ = 50”, 609, 70”, 80°, 90, 110”, 140° v.v... Tuy vậy, 
thực tế phải tính “mò đâm” như thể hiện trên bảng 3-6 mới ra kết quả cuối cùng: 
vùng biến dạng dẻo có K < l nằm giữa 2 cung tròn œ¿ = 25” và œ¡; = 14]. 

Riêng œ¿ = 25”, là giới hạn dưới vùng biến đạng dẻo, lại nằm qua 2 lớp 
địa tầng khác nhau nên phải tính và vẽ vòng tròn đẳng trị K„ Øị, ơạ (=Gạ), 
t„„„ cho 2 lớp 1 và 2 khác nhau. 


Áp dụng các công thức (3-5), (3-6), (3-7), (3-8) kết quả tính toán điển 
hình bằng tay như sau: 


x50 





œ; = 50°, đổi œ; ra radian =“—— = 0,8722, sin 50° = 0.7660 
Lớp Ì có: @ = 6", tgọ = 0.1051, C= 0,081 kG/cm? 


MEN St (83 (007C .. (0.8722 + 0.7660) = 0.3495 
TL 


› 


ơ,=ơ; = B,= = (œ, — sỉn 0) = sa (08722 — 0/7660) = 0.0227 


» 


Tay = Ty = ˆ sin œ,= nà 0,7660 = 0.1634 
A, < S089 +C _ 0.3495<0,1051 +0.081 _ 0 2) 


Ơi~Ø; 0.3495 —0,0227 
K, =2//A„(A„ =tgo) = 2./0,3602(0,3602 - 0,1051) = 0,606 
Với œ, = 25° qua 2 lớp: 
Lớp l có: @=6°,tg@=0,1051,C=0,081 kG/cmẺ, 
Tính tương tự như trên được K, = I.002 
Lớp 2 có: @= 14°, tgọ = 0.2493, C = 0,450 kG/cm2. 
Tính tương tự như trên được K, = 5,224. 





Như vậy có nghĩa là: thực tế vùng biến dạng dẻo chỉ nằm đến độ sâu hết 
địa tầng ! (lớp bùn sét hữu cơ có chiều dày 33m) và trong cung tròn nhìn 
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đáy nền đắp = 2b một góc œ = 25°, (cách tính độ sâu cung tròn sẽ theo công 
thức 3-10). 

Trên hình 3-5 vòng tròn œ; = 25” có cùng trị số ơi, ơạ, t„„„ nhưng cung 
tròn nằm ở lớp địa tâng 2 sẽ có K,„ = 5.244 : hai nhánh 2 bên có K, = 1,002. 
Tổng hợp kết quả tính toán như bảng 3-6. 

Để xác định độ sâu H của đường đẳng trị K,„ ta áp dụng công thức sau: 


Ø 
- Tính theo góc œ° hy 95-5 





(3-10) 


Sin(1 — r) 


- Tính theo góc œ radian H=b 3-11) 


_cos( —T) 


Kết quả tính với giới hạn trên và giới hạn dưới vùng biến dạng dẻo, tức 
khi a = 25” và 14I° là: 


Hạ = 20 x tg(7730°) = 90,21 m 
Hị; = 20 x tg(19°30') = 7,08 m 

















Hình 3-5: Đồ thị đường đẳng trị Ø, Ø», 1„„„, K„ theo ví dụ 3-1 


71 


'(8una oạp 125) £ đọI g2 sịp tọA qun gỊ .Z #) nqL 


†#2seq gu đột r3 oq2 
8uP ‡p 9Ị ('£H '[ “1J “1 tIs '1 ngư) 2‡oẩu 8uon nội £3 :nậr Ấ ý tlọổ uạn "5J 8upq 8uon 1ộo ọ5 IỘNW :JH/2 n2) 
























































6001 | 09€0 | £pfl0 | 906E0 | 06490 | I8Ø0 | IS0FO | 9 | €6ZØ0 | 609£ | Irl | £I 
c86GO | 80 | 1/£I0 | 0wSfo | zsseo | twơo | 1eoro | 9 | seøo | cec | œ1 | 1 
0190 | z9f0 | po0zo | 0600 | 66090 1800 | 1e0ro | 9 | ¿660 | 66161 | 011 | 01 
c0 | co | ceiểo | ¿1z1ro | sspeo | 1sơo | ieoro | o | 0001 | so¿et | 06 | 6 
tZc0 | 00 | 00120 | 8/800 | 8/060 I80ƠO | ISOFO0 | 9 | §t860 | coófI | 08 | 8 
Iccf0 | co | y00£o | 10900 | ô19po | 1sơo | tsoro | 9 | ;6@o | đế£t | 0œ | £ 
| 90 | €EEO | /P8FO | 9800 | 0800 | 1800 | Ie0F'0 | 9 | 09980 | g vớt | 09 | 9 
9090 | 09E0 | 9o | ¿zZ0o | seeo | 1s0o | 1soro | 9 | o0 | £zo |.0€ } € 
¿690 | cor0 | 1z£10 | si100 | 098€0 | 1800 | tsoLr0 | 9 | g@#20 | 18690 | 0 | y 
cogo | ¿8r0 | 990Io | 0o00o | cøizo | tsơo | Isoro |. | 000eo | 9zeo | óœ | € 
tzcc | 0z | 10600 | 6£000 | crsro | osro | córeo | vị | 9o | coeto | se | .z 
£001 | 9e€0 | 10600 | 6000 | £8g!0 | 180ơo | 1coro | 9 | 9zøo |eoero | cổ | £ 
ciếi | 1990 | 600 | 61000 | t¿wfF0 | 1800 | tcoro | 9 | 00 | 160 | 0 I 
£I 1 ØI 6 8 £ 9 E P Ệ £ II 
@) 

u3/OX | ,9/OX I1so2 

°w %  .Í sữạ) “q) 2x1 | 100% | CĐ | qup | H6 | 
v C1) to tọ š Ÿ b8 4b Sẽ 081 „Ð núL 

XEAU, L ø = 0x1 











ˆx qun 3ugg 'o-c 3uegi 


72 


2) Lập chương trình Pascal NÐ 3-1 xác định vùng biến dạng dẻo 


Trên cơ sở các công thức tính toán và ví dụ 3-1 trên, tả có thể lập chương 
trình Pascal tính vùng biến dạng dẻo K,„ như sau: 


Program Vùng biến dạng dẻo _Ko_và_độ_sâu_H; 


Uses crt; 


Var 


Begin 
Clrscr ; 


For a:= 


r,F,f1,C.b,BI,B3,Tmax,t,Ao,Ko,Po,H: real; 
an: IHI€B€T ; 


Write(“nhập vào 1/2 bẻ rộng nên b(m):'); readln(b); 
Write(°nhập vào tải trọng Po(kG/cm2):'); readin(Po); 
Write(*nhập vào góc nội ma sát F(degree):`); readlnŒF), 
Write('nhập vào lực dính C(kG/cm2):`); readIn(C); 
Write('nhập vào số góc n(degree):`); readÌn(n); 
ltondo 


Begin 


r:=pi*a/180; 
BI1:=Po*#(r+sin(r))/p ; 
B3:=Po*(r-sin())/pi : 
Tmax:=Po*sin(r)/pi ; 
fl:=p#F/180; 
t:=sin(f1)/cos(f1); 
Ao:=(BI*t+C)/(B1-B3); 
Ko:=2*sqr(Ao*#(Ao-U): 
H:=b#sin((pi-r)/2)/cos((pi-)/2); 
Writeln(“Trị số BI:ˆ,B1:6:4); 
Writeln(“Trị số B3:°,B3:6:4); 
Writeln('Trị số Tmax:°¿Tmax:6:4,` kG/cm2”); 
Writeln(“Trị số Ao:`,Ao:6:3}; 
Writeln(°Trị số Ko:”,Ko:6:3); 
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Writein(“Trị số góc a la:”,a:4,' degree”); 
Writeln(°Độ sâu vùng biến dạng dẻo là H(m):',H:6:2,' m'); 
End; 
Readln 
End. 

Một số điểm cần lim ý: 

- Chương trình NÐI được lập với nhiều lệnh ghi kết quả tính toán 
(Writeln(...) ) cho B1, B3, Tmax, Ao.... để dễ kiểm tra kết quả bảng tính 3-6. 
Thực tế khi đã quen, ta chỉ cần ghi và ¡n 3 kết quả Ko, a, H là đủ, như vậy 
chương trình sẽ gọn hơn. 

- Khi chạy chương trình NÐ 3-1, vì màn hình chỉ đủ chỗ hiện ra một 
số kết quả ứng với một số góc độ, nên ta cũng phải cho dần trị số n để tìm 
ra góc a có K, xấp xi 1. Tuy nhiên, việc làm này khá nhanh, vì máy tính 
với góc chênh lệch từng I° nên có thể tìm ra ngay 2 trị số góc a; = 25° và 
ais= 1419. 

- Hơn nữa, dùng chương trình này “chạy thứ” với nhiều tình huống 
khác nhau về địa chất (như với nhiều trị số C, ọ của nhiều phương pháp thí 
nghiệm khác nhau), bể dày địa tầng, cao độ nên đấp..., ta có thể nghiên 
cứu, nhận biết quy luật biến thiên vùng biến dạng dẻo với rất ít công sức 
tính toán. 

- Chương trình NÐ 3-1 là chương trình cơ bản đầu tiên, tìm ra vùng biến 
dạng đẻo (còn gọi là vùng hoạt động H,), làm cơ sở cho các bước tính toán 
tiếp theo như tính độ lún, tốc độ lún, cải tạo nền đất yếu bằng cọc cát, bấc 
thấm v.v... 

- Vì các chương trình con loại này “để dùng riêng”, thỉnh thoảng lại dùng 
đến, nên khi lập, phần nhập số liệu nên ghi rõ cả tên thông số, đơn vị... để để 
gợi nhớ và tránh nhầm lần đơn vị đo lường. 


3) Lý thuyết tính độ lún nên thiên nhiên dưới nền đường đắp. 


Nền thiên nhiên dưới nền đường đắp chịu tác động của 2 tải trọng (theo 
trục Z) là: 


Pị =ơ, =y.h do trọng lượng bản thân nền thiên nhiên, (T/m?) 
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Pạ = ø,do tải trọng nền đắp và hoạt tải, (T/m?) 
Tải trọng tổng cộng là P; = P, + P, 
Ở đây, P„ = P¿ như ở ví dụ 3-. 
Độ lún được tính theo công thức: 
(e¡—ez)h 
l+ei 


S= (3-12) 


Theo định luật nén lún, hệ số nén lún a xác định bằng thí nghiệm và tính 
theo công thức: 


€ji—€y @¡-=€ 
CC =tea«=~)—~2=>*!—_~2 3-13 
SE 5c n8 (3-13) 
Rút ra: S= = ke , @-14) 
l+e 


- hệ số rỗng tự nhiên của nền, chịu áp lực P; 
e; - hệ số rỗng khi chịu áp lực P;; 


h - chiều dày mỗi lớp đất tính toán (m), quy định không lớn quá 0,4 bể 
rộng đáy nền đường đắp phía trên. 


Phạm vi tính lún (khu vực hoạt động của nền thiên nhiên) quy định ở độ 
sâu H, có: 


ơ,= (0.1 ~ 0.2) ơ, (3-15) 
Trên trục z, trị số ø, = P, tính theo công thức (3-6) 


ø;=ơi=B,= te linv) 6 T; {r + sin r) 
T T 
Do ơ,, ơ, tính trung bình cho mỗi lớp nên góc œ = a sẽ là góc ở giữa mỗi 
lớp (trên trục Z), nhìn vào đáy nền đấp như hình 3-5. 


Độ sâu vùng hoạt động H, còn một quan điểm khác là lấy bằng độ sâu 
vùng biến dạng dẻo, xác định được trên hình 3-5, (theo ví dụ 3-1, khi toàn 
bộ địa tầng đều là bùn sét hữu cơ thì H, = Hạ = 90.21 m). Tuy nhiên, ta có 
thể kết hợp cả 2 cách để chọn trị số H, được hợp lý. 


Ví dụ 3-2: Tính độ lún của nền thiên nhiên trên hình 3-4. 
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Chia các lớp h = 6.5m < 0.4 (2b) = 0.4 x 40 m = lóm. 
Xác định góc œ = a ở giữa mỗi lớp trên trục Z. Độ sâu đến giữa mỗi lớp là 
Hn. 
Vì nền thiên nhiên nằm trong mức nước ngầm, tính trọng lượng riêng 
đấy nổi theo công thức: 
Tda = ›_(A-Ù#; _-@Œ=D_ 
m l+ei l+ei 


A=G, - tỷ trọng hạt đất = 2.575, 


Gì (3-16) 


Ta = Gụ = Ì - trọng lượng riêng của nước; 
e¡ - hệ số rỗng tự nhiên của nền . 


Lập bảng tính áp lực nền P¡ = Ề` y'.h và P, = ơ,= ơ, = B, và độ lún S 
như sau: 
Bảng 3-7. Bảng tính toán ví dụ 3-2 


C 


c 


(m?7T) 





Cộng độ lún: 6,490 m 
4) Lập chương trình Pasca] NĐ 3-2: Tính độ lún 


Trên cơ sở các công thức tính toán và ví dụ 3-2 trên, ta có thể lập chương 
trình Pascal tính độ lún S như sau: 
Program Tính_độ lún cố kết_S ; 
US€S CTT; 
Var 
b, Hs, Hn, h, e1, Gt, Gn, G1, Cc, PI, Po, Pn, r, a, S, t: real ; 
n, Ï: H€EET ; 
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begin 

cÏrscT; 
write('nhập vào bể rộng b(m):`); readin(b) ; 
write(° nhập vào tỷ trọng hạt Gr:”); readln(Gt) ; 
write( nhập vào độ rỗng tự nhiên el:”); readln(L) ; 
write(°nhập vào hệ số nén lún Cc(m2/T :”); readln(C©) ; 
write(°nhập vào số lớp n:`}; readln(n) : 

for i:=l to n do 


begin 
Đo: =6.7; 
h:=6.5; 
Hs; = i*h ; 
Hn: = Hs - h/2 ; 
t: = b/mn ; 


r: = 2*arctan() ; 
a: = L8O*T / p1; 


Gn:= 1; 
GI1:=(Gt- l)* Gn/(1+el); 
P1: =G1*Hn ; 


Pn: = Œo / p) * ứ+ sinf)) ; 
S: = Cc*Pn*h / (+el) ; 
writeln( Dung trọng đầy nổi của nền đất G1:, G1: 6: 2.` T/m3”); 
writeln( Ứng suất do trọng lượng bản thân nên PI:`, PÌ: 6: 2; Tím2) ; 
writeln( Ứng suất do nền đắp và hoạt tải Pn:”, Pn:6: 2, T/m2”) : 
writeln(°Độ lún cố kết lớp n là §:”, S;6: 3,1); 
writeln( Góc a:”, 4: 8:2, degree`) ; 
cnd; 
readin 
end. 
Ghi chú cho NÐ 3-2: 
- Trị số Gn = l là trọng lượng riêng của nước. 
- Các số Po = 6,7 T/mỶ, chia lớp tính độ lún h = 6,5m đã xác định nên ta 
ghỉ luôn vào chương trình: sau “begin”, khi Po và h thay đối, ta hoàn toàn có 
thể ghi theo trị số mới, như vậy sẽ đỡ phải lập thêm đồng write( nhập vào...:}; 


T 


- Tham số tính toán t = b/ Hn = tg (a/2) là số trung gian để dùng hàm 
artan(r) tìm ra trị số r rađian cần dùng trong công thức tính Pn. 

- Chú ý phân biệt Hs là độ sâu đến đáy lớp n, còn Hn là độ sâu đến tim 
lớp n. 

- Đặc điểm sử dụng NÐ 3-2 là khi địa tầng thay đổi ở lớp nào, (thí dụ 
tương ứng với n = 4), ta nhập các trị số Gt, e1, Cc của lớp 4 và sẽ lấy riêng 
kết quả độ lún của lớp 4, loại bỏ kết quả lớp L, 2, 3. 

Chạy chương trình NÐ 3-2: 

Nhập các số liệu b=20m 


Gt = 2,575 
ecl=2,443 

Cc =0.,1196 m2/T 
n=5 


Sẽ cho ta kết quả đúng như bảng 3-6. 
$) Lý thuyết tính tốc độ lún 
Tổng độ lún cố kết của nền thiên nhiên dưới nền đường đắp (không kể độ 
lún trong bản thân nền đấp) là: 
XS =8 + S¿ (3-17) 
Š„¡ là độ lún cố kết giai đoạn l (sơ cấp). Đây là giai đoạn nền bị nén chặt 
để đạt độ ẩm không đổi W = const, là độ lún quan trọng nhất cần tính tốc độ 
lún để định thời hạn thi công mặt đường. tức là xác định thời gian ổn định 
Tạa, Thường T;¿ứng với lúc độ lún đạt 80 - 90% S.. 
S¿; là độ lún cố kết giai đoạn 2 (thứ cấp) do biến đạng từ biến gây ra. 
Trong xây dựng đường, ta thường quan tâm tính tốc độ lún Sị. 
S=§,+8; (-18) 
S¡ là lún tức thời, thường bằng (0,1 — 0,3) S; 


3; là lún do trọng lượng nền đắp phía trên và hoạt tải (xe chạy) mà ta đã 
tính theo công thức (3-14): 
se C..P;.h 
l+ei 
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Sau thời gian ổn định Tạ¿, độ lún St được xác định theo công thức: 


St=U,.S 


@-19) 
U, là độ cố kết theo chiều đứng, dùng khi không có gia cố nền đất bằng 
cọc cát hay bấc thấm, cho ở bảng 3-8. 


Bảng 3-8. Hệ số cố kết Ú, theo các sơ đỏ phân bố ứng suất 



































P L 
Nhân tố ==TI vx 
thời gian 
3`: Hỗ T 
t U, U; 
TT nã 0,080 0008 0135 | 
0,008 0,104 0.016 0,186 
0.012 0.125 0.024 0,223 
0,020 0,160 0.040 0,279 
0,028 0,189 0.056 0.322 
0,036 0.214 0,072 0.358 
0,048 0,247 0,096 0,388 
0.060 0,276 0,120 0,433 
0,072 0,303 0,144 0.462 
0,100 0,357 0,197 0.516 
0125 0,399 024 |U _ụ - 0,554 
0,167 0,461 0,318 0,605 
020 0,504 0.370 : - (U,—=U¿) 0,638 
025 0,562 0,443 Ban 0,682 
0,30 0,631 0,508 0719 
0,35 0,658 0,565 0/752 
0,40 0,698 0,615 0,780 
0,50 0,764 0,700 0,829 
0,60 0.816 0,765 0,868 
0,80 0,887 0,857 0,018 
1,00 0,931 0,013 0,950 
2/00 0.994 0,993 0,996 
1,000 1,000 | 1000 _| 
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Khi có cọc cát hay bấc thấm, nước thoát theo phương ngang là chính 


St=U, S 3-20) 
Độ cố kết toàn bộ Ù tính theo công thức: 
U=I-(I-U)(1-U,) @-21) 


U, - độ cố kết theo chiều ngang, xác định theo đồ thị hình 3-6, xác định 
theo tỷ số: 


=— -22 
Hiến (3-22) 


I— khoảng cách cọc cát, (m) 

d - đường kính cọc cát, (m) 
và nhân tố thời gian 

K,d+e,)t f 
là c uêi (3-23) 
and l 

€, - hệ số cố kết theo phương ngang 

Bảng 3-8 cho các trị số Uv cho những trường hợp điển hình về sự phân bố 
áp lực theo chiều sâu của lớp đất bị nén. Trị số U phụ thuộc vào nhan tố thời 
gian T. 





).ề (-24) 
h 
P 
Trong đó: 
C, - hệ số cố kết theo hướng thẳng đứng 
K,qd+e 
QC; = Xcd + ew) (3-25) 
3Tn 


K¿, K, là hệ số thấm theo hướng ngang và đứng: 


©ụạ - hệ số rỗng trung bình trong phạm vi áp lực từ P, đến Ps, (P, - áp lực 
do trọng lượng bản thân nên, P; - áp lực tổng cộng do bản thân nền thiên 
nhiên và tải trọng nền đắp, xe chạy); 


a ~ hệ số nén lún (cm”/kG hoặc m?/T); 
Ta — trọng lượng riêng của nước ( = 0,001 kG/cm” hoặc I ttm?); 
hp — bề dày tính toán lớp đất chịu nén. 
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Khi thoát nước 1 chiều hy=H 
Khi thoát nước 2 chiều h, = H/2 
H là bề dày lớp nền thiên nhiên chịu nén, còn gọi là vùng hoạt động. 


tà thời gian lún, có thể xác định qua thí nghiệm trong phòng với mẫu đất 
có chiều cao h,. 














Độ kết cấu-U,, % 
a5äềs> 





- 
Š 








s 








8 


0.01 002 003 004005 0.06 0.08 0.1 02 043 04 06 08 10 
Nhân tố thời gian Tn 


Hình 3-6: Đồ thị xác định độ cố kết ngang do tác dụng của giếng cát 


Mẫu đất này chịu áp lực bằng áp lực nền đắp, qua theo dõi lún theo thời 
gian của mẫu sẽ vẽ được đường cong nén lún theo thời gian. Từ đó rút ra 


quan hệ: l 
2 
TL. (q) (3-26) 
tạ \(H 
t¡ — thời gian mẫu đất đạt được độ cố kết đã cho 
t — thời gian cần thiết để nền thiên nhiên đất yếu dày H đạt cùng độ cố 
kết ấy. ` 
Cần chú ý: 
Với nhiều loại đất số mũ trong công thức (3-26) không phải là 2 mà là n < 2 


tụ 
seụ (lạ) @-27) 
ty (HH 
Trị số n„ xác định bằng thí nghiệm nhiều mẫu đất có chiều cao khác nhau. 


§I 


- Trường hợp gia cố nền bằng giếng cát hoặc bấc thấm, trị số H sẽ thay 
bằng Dc là đường kính vùng ảnh hưởng của giếng cát hoặc bấc thấm. 

~ Trong bảng 3-8, cách vận dụng sơ đồ phân bố ứng suất như sau: 

U, - đất nên bị nén chặt với ứng suất ø = const 

U; - đất nền cố kết đưới tải trọng bản thân 

U, - kết hợp hai trường hợp trên 


U, - ứng suất nén chặt do tải trọng bên ngoài tắt dần theo chiều sâu nền, 
đạng tam giác. 

Trường hợp đất bị nén gồm nhiều lớp khác nhau, phải lấy trị số trung 
bình hệ số thấm K„p, hệ số rỗng e;.„„, hệ số nén lún a, theo các công 
thức sau: 





@-28) 





Sự “=———-l (3-29) 











l+e m h. 
t8,“ g7 _ (3-30) 


Trong đó: 
H- bề dày toàn bộ các lớp đất bị nén 
m 
H=3`h, 
i=l 
hị, Kú¡, epu¡, 4, là bể dày, hệ số thấm đứng, hệ số rỗng bình quân (giữa P, 
và P; ), hệ số nén của từng lớp riêng lẻ. 
m- số lớp 


Ví dt 3-3: Tính và vẽ biểu đỏ độ lún theo thời gian của nền đường đắp 
trên hình 3-4. Hệ số cố kết trung bình là: 


Cv =3,71 x 10' cm”/sec = 3/71 x 102 x xz x 10” mˆ/năm = I,17 m”/năm 
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Kết quả tính toán qua ví dụ 3-2 cho § = 6,490m. 

Do tải trọng Pn có dạng tam giác, áp dụng trị số U, ở Bảng 3-8. 
Theo công thức (3-24) rút ra: 

_ Th, - Tx16,3ˆ 


t=—È=————— ~=2,32,6923xT (nã 
œ L7 N VERN, 
Vì nền thoát nước 2 chiều, dùng hp = H/2 = 33/2 = 16,5 m. 


H=H =33m là độ sâu vùng hoạt động, xét chỉ xảy ra ở lớp bùn sét 
hữu cơ, tìm được theo ví dụ 3-1. 


Coi như nền đắp cao tức thời 3 m. Lập bảng tính như sau: 


Bảng 3-9 


(Bảng 3-8) | 0,135 | 0,186 | 0,223 | 0,322 | 0,433 | 0,516 | 0,605 | 0,752 | 0,868 
0,004 | 0,008 | 0,012 | 0,028 | 0,060 | 0,100 | 0,167 | 0,350 | 0,600 
t (năm) 0,9 1,8 28 9 14 23 39 8l 202 
St=US(m)| 0,88 | 121 | 1/45 | 2/09 | 281 | 3.35 | 3/93 | 488 | 5,63 
Theo kết quả bảng 3-9, dùng excel dễ dàng vẽ được biểu đồ tốc độ lún 
theo thời gian như hình 3-7. 















T(năm) 
0 100 200 








Độ lún S (m) 








Hình 3-7: Biểu đô tốc độ lứa, ví dụ 3-3 
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6) Tính toán tốc độ lún khi cải tạo nền đất yếu bằng bấc thấm 

Tính tốc độ lún theo ví dụ 3-3 là khi quá trình lún cố kết đạt được chủ yếu 
do thoát nước dọc từ nền thiên nhiên dưới nên đáp lên phía trên mặt đất tự 
nhiên (dưới chân nền đáp). Đây là quá trình thoát nước rất chậm, làm cho 
thơì gian lún cố kết kéo dài hàng chục, hàng trăm năm. 

Để rút ngắn thời gian cố kết, người ta thường dùng cọc cát hoặc bấc thấm để 
nước chủ yếu thoát ngang vào cọc cát, bấc thấm, chiều dài thấm trong đất ngắn, 
sau đó dễ dàng thoát dọc theo cọc cát, bấc thấm lên phía trên mặt đất tự nhiên. 

Ví dụ 3-4: Một nên đắp trên nền đất yếu được gia cố bấc thấm (như hình 3-§), 
tóm tắt tính toán như sau: 





Hình 3-8: Nên đắp gia cố bấc thấm 


1. Tính vùng hoạt động của nền đất yếu qua độ sâu H. Giả sử tính được 
H=30m. 


2. Tính đường kính tương đương của bấc thấm d,: 





a+b 
đu, = 5 


Xem hình 3-9. Giả sử dùng loại bấc thấm có a = 100 mm, b = 4 mm 


(3-31) 
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10+0,4 
2 


3. Bấc thấm được bố trí theo hình tam giác đều, khoảng cách 2 bấc thấm 
là I= 1,00 m. Tính đường kính vùng ảnh hưởng của bấc thấm D,: 





dụ= =5,2cm =0,052m 





D,= 1,05 x1= 1,05 x 1,00 = 1,05m (3-32) 
cÁ a=-4219). 
L2 _atb 
⁄# # v2 
Lí ` lạ 





Hình 3-10: Đường kính vùng ảnh hưởng của bấc thấm De 
theo mẫu đặt hình vuông và hình tam giác 


4. Tìm đường kính vùng xáo trộn d, 

Khi thi công bấc thấm, phải dùng một trục dùi dẫn rỗng giữa để đưa bấc 
thấm xuống độ sâu thiết kế như Hình 3-8. Do đó tạo nên một vùng xáo trộn 
có đường kính d, và có ảnh hưởng đến quá trình thấm. Ảnh hưởng này gọi là 
ảnh hưởng nhiễm bẩn. 


) @-33) 
2 
Hiện thường dùng theo khuyến nghị của Hansbo (1987): 
d,=2d„ (3-34) 


§5 


Trong đó d„ là đường kính vòng tròn tương đương của diện tích cắt 
ngang trục dùi dẫn. Khi dùi dẫn có tiết diện chữ nhật dài a„, rộng bạ (Hình 
3-11), d„ tính theo công thức: 


 SÊn lÊ„b„ =Í T. 
TL TU 


(3-35) 








Hình 3-11:Xác định gần đúng vùng xáo trộn d, quanh trục dài dẫn 


Thực tế Việt Nam còn dùng dùi dẫn tiết diện hình thoï (hình 3-12), 
đạ=9 + 10cm. 


———— a„ = 145 mm, b„ = 65 mm, 
: E„ = 61,6 cm, d„ = 9 em. 
f “=-_—¬_` Ầ 160 bạ = 80 
đ â„= mm, b„ = 80 mm, 
| ' 


E„ = 80,0 cmỶ, đ„ = 10 cm. 


Hình 3-12: Cắt ngang trục dài dẫn hình thoi ở Việt Nam 
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Thực nghiệm của Bergado (1991) cho thấy: dùng dùi dẫn loại nhỏ sẽ tăng 
nhanh tốc độ lún cố kết hơn loại lớn. Hệ số thấm K, trong vùng xáo trộn 
bằng hệ số thấm đứng K,. 

K,=K, (3-36) 

5. Xác định tỷ số hệ số thấm ngang với hệ số thấm đứng K,/ K, 

Trong đất gia cường bằng vải thô (như bấc thấm) rất đễ nhận ra rằng tỷ 
số Kh/ Kv có thể rất lớn, tới 10 lần. Tỷ số này có thể giảm bớt hoặc loại trừ 
do ảnh hưởng của nhiễm bẩn gây bửi vùng xáo trộn. 

Do K, =K, nên để xết ảnh hưởng nhiễm bẩn tới khả năng thấm nước, tức 
là thời gian cố kết, người ta dùng tỷ số K,/K,. 

Trong ví dụ này dùng K = (K,/ K,) = 3. 

K, càng nhỏ, thời gian cố kết càng lâu. 

6. Hệ số cố kết ngang C, 


Kh 
C,=—C,, 3-37) 
So : 
Trong ví dụ này Cụ = 3C, 


7. Tính thời gian cố kết 


2 : ` 
Là lu -b2 (he b= (3-38) 
8C,|[ đụ Ks 8p tt TEỦ: 


Lập chương trình NÐ 3-3: Tính tốc độ lún (theo công thức 3-38) 





Program Tính_thoi_gian_lun_co_ket; 
uS€S CT(; 
VấT : 
t, De, Ch, dw, K, Kh, Ks, d, ds, Š, St: real ; 
n, U: integer ; 
begin 
CÏrSCT ; 
'write(°nhap vao so De(m):`) ; readIn (De); 
write(°nhap vao so Ch(m2/năm):”) ; readIn (Ch); 
Wwrite(°nhap vao so dw(m):”) ; readin (dw); 
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write(°nhap vao so K:”) ; readin ); 
write(“nhap vao so đs(m):`) ; readIn (ds); 
write(“nhap vao do lun toan bo S(m):”) ; readin (S); 
write(“nhap vao tri so n:”) ; readln (n); 

for U;=l ton do 


begin 
đ: =ds/ dw ; 
St: =U*S*0.I ; 


t: = (Gqr(De)/ (8*Ch))*(dn(De/ dw) - 0/75) + (K — 1)*In(đ))*In(1/ (I — 
0.1*U)))*12; 


writeln(“Thời gian lún cố kết là t (tháng): t: 6: 2) ; 
writelnCĐộ lún cố kết đạt được là St (m):`, St: 6: 2) ; 
cnd ; 
readln 
end. 
Chạy chương trình NÐ3-3: 
Nhập các số liệu De = 1,05m 
Ch = 2,07 m”/ năm 
dw =0,052m 
K= &h/ Ks) = 3 
ds = 2dm = 0,20 m 
S=3,952m 
n=9 
Được kết quả như bảng 3-10. Vẽ biểu đồ tốc độ lún khi có bấc thấm như 
hình 3-13. 
Bảng 3-10. Kết quả tính toán độ lún theo thời gian 

















_ 40 50 60 70 §0 90 
202 | 2/74 | 362 | 476 | 637 | 911 
119 | 1,58 | 198 | 237 | 277 | 316 | 3,5 























t (tháng) 
0 2 4 § 8 10 


St (m} 
ð 


Hình 3-13: Biểu đồ tốc độ lún khi có bấc thấm, ví dụ 3-4 


Chú ý: Do Ch dùng đơn vị m”/ năm nên t trong công thức (3-38) tính ra là 
năm. Để đổi ra đơn vị tháng, chương trình NÐ3-3 đã nhân với 12. 


7) Một số nhận xét 


Thực tế độ lún một con đường, hay cả một thành phố, qua hàng trăm năm 
còn chịu nhiều tác động khác như sự thay đổi phức tạp của mức nước ngầm, 
biến động kiến tạo vỏ trái đất v.v... Biểu đồ hình 3-7 chỉ có ý nghĩa về lý 
thuyết tính toán theo các kết quả thí nghiệm đất một khu vực riêng lẻ, dùng 
làm cơ sở để lý giải chứng minh các giải pháp cải tạo nên đất yếu mà chúng 
ta sẽ đề xuất. 

Các kết quả tính toán trong ví dụ 3-2, 3-3 ( như độ lún S = 6,49m, độ sâu 
vùng hoạt động khi toàn bộ là bùn sét hữu cơ H = 90,2m ) là dựa trên số liệu 
địa chất thực tế của vùng lầy giữa sông lạch ngoại ô TP Hồ Chí Minh. Số 
liệu đó có vẻ như “vô lý”, nhưng qua biểu đồ 3-7, bảng 3-9, trong 1,8 năm 

=21,6 tháng) một nền đắp cao 3 m, rộng 40m bị lún 1,21 m là hoàn toàn có 
thể xảy ra. 

Kinh nghiệm tính toán vùng biến dạng dẻo, độ sâu vùng hoạt động nên 
đất yếu thường trong khoảng H = 40 đến 45 m. Do đó, khi khảo sát địa chất 
phục vụ cho thiết kế cải tạo nên đất yếu, cũng phải khoan sâu 40 — 45 m mới 
đủ số liệu để tính toán. 
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Chương 4 
LẬP TRÌNH TURBO PASCAL THIẾT KẾ THOÁT NƯỚC 


4-1. KÝ HIỆU, THUẬT NGỮCHÍNH 


1) Khái quát chung 


Ai đã từng tính toán thuý văn thuỷ lực cho cầu cống thoát nước đều thấy 
rằng: đó là một bài toán nhiều biến số phức tạp, thường phải tính “mò dần” 
và điều chỉnh nhiều lần, với khá nhiều loại công thức “số mũ thập phân”, 
hoặc phải tra khá nhiều bảng tính, biểu đồ phức tạp (mà mỗi người tra ra một 


kết quả khác nhau), do đó khá “ngại” ! 





1. Trạm xử lý 3. Gống chính 5. Giếng hn 
2. Trạm bơm 4, Cống nhánh 6. Của xả 
Hình 4-1: Hệ thống thoát nước chung 
Với mạng lưới thoát nước đỏ thị, với hệ thống cống dọc thu nước từ giếng 
thu 2 bên hè, lại nối đọc nối ngang các phố trước khi để ra cửa xả (ở bờ sông), 
việc tính toán càng phức tạp hơn, (xem hình 2-1, 2-2). Lập chương trình phần 
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mềm tính toán cho mạng lưới thoát nước này là một bài toán rất phức tạp. 
Trong chương này, chỉ giới thiệu một số “chương trình con” để tham khảo, 
giúp cho mỗi kỹ sư cầu đường có thể tự lập chương trình riêng, theo phương 
pháp tính toán mà mình ưa thích, rồi “dùng riêng” trong máy tính cá nhân của 
mình. (Đo vậy, phương pháp tính toán, công thức tác giả dùng cũng chỉ để 
tham khảo, vì mục đích chính là thể hiện ý tưởng lập trình). 






1. Trạm xử lý 4. Cổng thoát nước thải sinh hoại và sản xuất 
2. Trạm bơm §.Gi g1 thăm 


3. Cống thoát nước mưa 6. Cửa 
Hình 4-2: Hệ thống thoát nước riêng 

Chú ý: khi lập trình trong Turbo Pascal đều dùng chữ Việt không dấu để 
diễn giải, nhưng ở đây, đôi khi tác giá vẫn dùng chữ Việt có dấu để dễ hiểu. 

2) Ký hiệu, thuật ngữ chính 

Khi thiết kế, tính toán thuỷ văn thuỷ lực cho hệ thống thoát nước (cầu, 
cống...) ta đã quen thuộc với một số công thức và ký hiệu chữ La mã như œ, 
u, vụ... Nhưng khi lập trình Turbo Pascal (TP), ta không thể dùng ký hiệu đó 
được. Sau đây giới thiệu một số ký hiệu, thuật ngữ chính thường dùng. 
Ngoài ra còn một số khác sẽ giới thiệu trong từng công thức cụ thể sau. 


Bảng 4-1. Ký hiệu, thuật ngữ chính 











Ký hiệu Đơn vị Ý nghĩa 
a - Độ đầy nước chảy trong cống (=h/d) 
d cm,m Đường kính cống 
F, ha, km? Diện tích lưu vực 
F,, ®¿ m Diện tích ướt 
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Bảng 4.1 (tiếp theo) 





Ý nghĩa 





Chiều sâu nước chảy 
Chu kỳ tràn cống 

Chu vi ướt 

Cường độ mưa 

Lưu lượng nước mưa 

Hệ số phân phối mưa rào 
Hệ số nhám 

Bán kính thuỷ lực 

Tốc độ nước 

Hệ số dòng chảy 








Cần lưu ý rằng: vì lập trình Pascal không phân biệt chữ hoa, chữ thường 
nên để kết hợp với ký hiệu khi lập trình, các ký hiệu sẽ có nhiều ký tự phụ 
như E,, F, (phân biệt với f). 


4-2 CHƯƠNG TRÌNH TN 4-I: TÍNH LƯU LƯỢNG THOÁT NƯỚC MƯA 


1) Cường độ mưa tính toán. Thời gian mưa tính toán 

Hiện nay vẫn tồn tại nhiều quan điểm. nhiều công thức khác nhau về tính 
cường độ mưa tính toán. Ở Việt Nam, qua số liệu nhiều năm, mỗi địa 
phương đã lập được quan hệ cường độ mưa và thời gian mưa với P = 0,5 — 20 
năm, như hình 4-3 là thí dụ cho một địa phương. 

Trên cở sở xử lý số liệu thống kê cường độ mưa ở các tỉnh của Việt Nam 
trong L5 ~ 25 năm, Tiến sỹ Trần Hữu Uyển đã đưa ra công thức sau: 

Si U Ô GẾ) ly hạ (4-1) 

(t+b,P”)" Ề 

- Các thông số A„, bạ, C, m, n cho ở bảng 4-2. 

- P @ăm) là chu kỳ tràn cống, là thời gian có một trận mưa vượt quá 
cường độ mưa tính toán. 


+ Đối với khu dân cư, thành phố nhỏ P=0.3- I năm 
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+ Đối với thành phố lớn, khu công nghiệp lớn P=l-3năm 
+ Đối với khu vực đặc biệt quan trọng P=5-I0năm 


- t (phút) thời gian mưa tính toán 















































20 3040 70 200/400 — IPHÚP 


Hình 4-3: Quan hệ giữa cường độ mưa và thời gian mưa 


Thời gian mưa tính toán là thời gian giọt nước mưa từ điểm xa nhất 
của lưu vực chảy đến tiết diện tính toán, còn gọi là thời gian cực hạn, 
(xem hình 4-4). 


t=tr+tt+t (4-2) 


t, - thời gian nước chảy từ điểm xa nhất đến rãnh thoát nước, còn gọi là 
thời gian tập trung nước bề mặt. Thường lấy t, = 5 — L0 phút (min). 


{, - thời gian nước chảy trong rãnh đến giếng thu nước mưa gần nhất 
t,= 1.25 1/V, (4-3) 
l, - chiều đài của rãnh (m); 
V, - tốc độ nước chảy trong rãnh (m/min); 
1.25 - hệ số tính đến khả năng tăng tốc độ chảy trong quá trình mưa; 
t„ - thời gian nước chảy trong cống từ giếng thu đến tiết điện tính toán 
t=rl/V, (4-4) 
l¿ - chiều đài đoạn cống tính toán (m); 
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V, - tốc độ nước chảy trong cống (m/min). 
r - hệ số phụ thuộc địa hình 

r= 2 khi địa hình bằng phẳng 

r = 1.2 khi địa hình dốc hơn 3% 
Vậy công thức 4-2 viết thành 


l L 
t=ti+l25--+3>— 4-5 
' V by ? 


f € 
Theo sơ đồ hình 4-4, để thoát nước mưa cùng diện tích F¡ + F¿, theo 
phương án 1 lưu lượng cực đại sẽ ở mặt cắt I-I qua 2 giếng thu, 2 giếng thăm. 
Thời gian mưa tính toán là t = tị + t, + t„. Theo phương án 2 lưu lượng cực đại 
sẽ ở II-H, qua I giếng thu, 1 giếng thăm. Thời gian mưa tính toán là t = tị + t, 


Phương án ï Phương án II 


T5m T5m | 





Hình 4-4: Sơ đồ xác định thời gian mưa tính toán (cực hạn) 


Bảng 4-2. Bảng thống kê các thông số khí hậu của 
công thức tính cường độ mưa của các tỉnh 











Thứ tự Tên tỉnh Áo bọ 
1 Bắc Cạn 8150 27 
2 Bảo Lộc 11100 30 
3 Buôn Mê Thuột 4920 20 
‡ Cà Mau 9210 25 
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Bảng 4.2 (Hiếp theo) 


























Thứ tự Tên tính Áo by C Bị m iã n 
5 |ĐàNấng 2170 | 10 | 0.52 | 0.15 | 065 
6 |HàGiang 440 | 22 | 042 | 020 | 079 
7 |HàNội 5890 | 20 | 065 | 013 | 084 
8  |HònGai 3720 | 16 | 042 | 014 | 023 
9 | Hải Dương 4260 | 18 | 042 | 017 | 028 
10 | Hòa Bình 500 | 19 | 045 | 018 | 082 
11 |Huế l0 | 12 | 055 | 012 | 055 
12 |LàoCai 610 | 22 | 058 | 018 | 084 
13 |Lai Châu 400 | 16 | 0/50 | 022 | 080 
14 | Móng Cái 4860 | 20 | 046 | 016 | 079 
15 |Nam Định 420 | 19 | 055 | 018 | 079 
16 - |Ninh Bình 4930 | 19 | 048 | 016 | 080 
17 |NhaTrang I8IO | 12 | 055 | 015 | 065 
I8 - | Hải Phòng 590 | 2I | 055 | 015 | 082 
19 ÌPhycu 7820 | 28 | 049 | 016 | oø0 
20 | Phan Thiết 7070 | 25 | 055 | 016 | 09 
21 |QuảngTrị 2230 | 15 | 048 | 023 | 062 
22 | Quảng Ngãi 2590 | 16 | 0358 | 012 | 067 
23 |QuyNhơn 2610 | 14 | 055 | 018 | 068 
24 |SơnLa 420 | 20 | 042 | 015 | 080 
25 |SơnTay 510 | 19 | 062 | 017 | 082 
26 Tuyên Quang 8670 30 0,55 0,12 0,87 
27 | Thái Nguyên 710 | 28 | 052 | 020 | 085 
28 |Thái Bình 520 | 19 | 045 | 016 | 08I1 
29 — | Thanh Hóa 3640 | 19 | 053 | 015 | 072 
30 |Tuy Hòa 2820 | 15 | 048 | 018 | 072 
31L |HôChíMinh | I650 | 32 | 058 | 018 Ì 095 
32_ |ViệtTn 5830 | 18 | 055 | 012 | 085 
33 | Vinh 3440 | 20 | 055 | 016 | 069 
3⁄4 li Bái | 7500 | 29 | 054 |] 024 | 0,85 
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2) Hệ số dòng chảy Y, () 
Hệ số dòng chảy Y xét đến thực tế lượng mưa rơi xuống qụ chỉ chảy vào 
mạng lưới một phần q,„ còn lại thì thấm xuống đất hoặc bốc hơi. 
Y=U= q./qp (4-6) 
Hệ số dòng chảy phụ thuộc vào tính chất bể mặt phủ, địa hình, độ đốc, 
thời gian mưa. Giáo sư P.C. Belốp đã đưa ra công thức thực nghiệm: 


Y=z.q0?. 01 (4-7) 
Trong đó: 
Z- hệ số thực nghiệm, đặc trưng cho tính chất của mặt phủ; 
q - cường độ mưa (I/s.ha); 
t— thời gian mưa (min). 


Nếu diện tích bề mặt không thoát nước trên 30% thì có thể coi Y không 
đổi (nghĩa là không phụ thuộc vào q và t). Trị số Z và Y phụ thuộc vào tính 
chất bề mặt phủ cho trong bảng 4-3. 


Bảng 4-3. Hệ số dòng chảy của các loại mặt phủ 








Loại mặt phủ | Z Y 
f1- Mái nhà và mặt phủ bằng bê tông át phan - 0.95 
f2- Mặt phủ bằng đá dâm 9.224 0.60 
f3- Đường lát đá cuột 0.145 9.45 
f4- Mặt phủ bằng đá dăm không có vật liệu dính kết 0.125 0.40 
†5- Đường sỏi trong vườn 0.090 0.30 
f6- Mặt đất 0.064 0.20 
£7-Mặt cỏ 0.038 0.10 





3) Tính toán lưu lượng nước mưa Q„ 

Theo phương pháp cường độ giới hạn của P.F. Gorbatrep: lưu lượng nước 
mưa ở tiết diện tính toán đạt giá trị cực đại khi thời gian mưa bằng thời gian 
nước chảy từ điểm xa nhất của lưu vực thoát nước tới tiết điện tính toán. 
Công thức tính toán là: 


Q„=M,.Y.F,.g, l (4-8) 
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(I+C.IgP) 


Qạ =M,.YF,.A, 
_ (t+b,pmp 


(4-9) 
F, - diện tích lưu vực tính theo biểu đồ mặt bằng (ha) 
M, - hệ số phân bố mưa rào, đặc trưng cho sự phân bố mưa không đều 
trong lưu vực tính toán. 
l 


¬= 4-10 
1+0,001., : ) 


ọ 
Khi lập trình theo Pascal, có đặc điểm là khòng có logarit thập phân và 
_ hầm số mũ thập phân, chỉ có logarit tự nhiên (In) và hàm e* (viết exp()). Do 
vậy công thức 4-9 cần biến đối theo ln và e. 


tuệ: TẾ InP : 
Biết rằng: lgP=—— 4-11 
Ế 8 Ini0 ( ) 
P” =exp(m.InP) (4-12) 
Đặt: tạ=t+buP" 


(¿)° = (t+ bụP?" 
ve (1+C.dnP/In10)) 


Rút ra: _ 


4-13 
exp(n.ÌnL;) ( ) 


Ví dụ 4-1: Tính lưu lượng thoát nước mưa ở mặt cất I-I theo hình 4-4. Địa 
điểm công trình là khu dân cư ở Hà nội. Diện tích Fq = F; = 0,60 ha. Độ dốc 
mặt 0,006. Diện tích mặt phủ mái nhà 32%, mặt đường bê tông át phan 38% 
mặt đường sỏi 8% và mặt lát cỏ 22%. 

Nội dung tính toán bằng tay như sau: 

- Xác định P: P= I.. 

- Xác định q: áp dụng công thức (4-1). Theo bảng 4-2 với thành phố Hà 
nội có A,„ = 5890, b„= 20, C = 0,65, m = 0,13, n = 0,84. 
q1+~0,651g1) .5890 
=5890————————=———— 
h (+20.199⁄ (+20) 

- Xác định hệ số dòng chảy Y. Hệ số phân phối mưa rào M.. 


Khi có nhiều dạng mặt phủ, hệ số đồng chảy Y tính trung bình theo công 
thức sau: 
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Y= fI.Yi+f2Y¿ +...+ EnYn 


4-14 
100 vả 
f,, f›, ... f„ là % diện tích mặt phủ 
Y¡, Y¿„... Y„ là trị số theo loại mặt phủ, cho ở bảng 4-3. 
Y= 32kt0,95 + 38 x 0,95 + 8 x 0,30 + 22 x 0,10 =0/71 


100 
- Xác định hệ số phân phối mưa rào: 
] l 


Mạ=————=—————=9.% 
1+0,001xF, 1+0.001x0,60 -” 


Tính lưu lượng Q,, Q; tại đầu cống dọc ở G¡, G¿. Thời gian nước mưa tập 
trung trên mặt phủ t, = 5 phút. 

Để tính t„„ t, cần biết V,, Vụ. Bứơc đầu giả định V,, V, theo kinh nghiệm. 
Sau khi xác định trị số lưu lượng Q, độ dốc thiết kế cống ¡, các trị số Vụ, Vụ 
sẽ được kiểm tra hgược lại, nếu phù hợp với trị số giả định coi như đúng. 

Ở ví dụ này, giả định V, = 1.5 m/s, V„ = 1.7 m/s. Lưu lượng Q do F¡ gây 
ra xác định ở giếng thăm G, chỉ có t¡ và tr chảy ở I = I, = 80 m (lưu vực F;) 

t= 1,25 x 80/1,5 = 66s = l min 
t=5+l=6min 
5890 
Q,=M,.Y. Fv.q = 0,999 x 0,71 x 0/60 x ————— 
Kê BH (6+20)9% 
= 0,999 x 0,71 x 0,60 x 381,54 
= 162.37 l/s = Q›;.; 

Lưu lượng Q¿ ; do F, gây ra ở giếng thăm G; có cả tị, t„. tạ. Do địa hình 

bằng phẳng cho r = 2. Tính được: 
t,= 2 x 80/1/70 = 94s = 2 min 
t=5+1+2=8min 

5890 
(8+201°% 
= 0,999 x 0,71 x 0,60 x 358,51 
= 152,57 l⁄s 


Q,.; = 0,999 x 0,71 x 0,60 x 
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Lưu lượng Q; ; do F; gây ra ở G; chỉ có tị và t, chảy ở Ï = l„= 80m dài lưu 
vực F¡, tính tương tự Ô\. 
Q;;= 162,37 l/s 
Vậy lưu lượng Q; ở G; do cả F¡ và F; gây ra là: 
Q;=Q,;+(Q;;= 52,57 + 162,37 = 314,94 lýs 
=0,315 m°/s 


4) Lập chương trình tính lưu lượng nước mưa TN 4-1 


Sau khi đã nắm vững được phương pháp tính bằng tay qua ví dụ 4-l như 
trên, áp dụng công thức (4-13) và (4-9), ta đễ dàng lập được chương trình 
Turbo Pascal tính lưu lượng nước mưa như sau: 

Program Tỉnh _lưu_ lượng nước_mưa_Qm; 
ules CTt; 
VaT 
Ao,bo,C.m,n,P,t,t1,tr,tc,Vr,Vc,lrlc,r: real ; 
YI1,Y2,Y3,Y4,Y5,Y6,Y7,Y,Mo,Fv.q,2,Qm: real ; 
1,nÝ: integer ; 
f: array{1.. 50] of integer ; 

begin 

clrscr ; 
write(nhập vào tần suất mưa P(năm): `); readIln(P); 
write('nhập vào số Ao:”), readln(Ao); 
write(“nhập vào số bo;”); readln(bo); 
write(*nhập vào số C:”); readln(C); 
write(°nhập vào số m:”); readln(m); 
write( nhập vào số n:”); readlIn(n); 
write(nhập vào chiều dài rãnh Ir(m):”); readln(r); 
write(“nhập vào chiều đài cống Ic(m):”; readln(lc); 
write( “nhập vào tốc độ ở rãnh Vr(m/§):`); readln(CVT); 
write( “nhập vào tốc độ ở cống Vc(/š);`); readln(Vc); 
write('nhập vào điện tích lưu vực Fv(ha):”); readin(Fv); 
write(*nhap vao so n£(%):”); readln(nf); 
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for ¡:=Í to nŸ do 
begin 
write(°f[*.1,*}: ='); readIn(ffi]); 
If f[i] = f[1] then Y1: =0,95; 
If f{i] = f[2] then Y2: =0,60: 
†f f[] = f[3] then Y3: =0,45; 
1Í f[] = f[4] then Y4: =0,40; 
ïf f[[] = f[5] then Y5: =0,30; 
1ƒ f[i] = f[6] then Y6: =0,20; 
tÍ f[ï] = f[7] then Y7: =0,10; 
end ; 
begin 
tl:=5; 
r=2; 
tr;=(1.25*lIr / Vr) / 60; 
tc:=(r*lc / Vc) / 60; 
†:ZtÌ+tr+tc; 
Mo:=l/(1+0.001*Fv); 


Y:=(f[1]*Y 1+f[2]*Y2+f[3]*Y3+f[4]*Y4+f[3]*Y5+f[6]*Y6+f[7]*Y7) 
/100; 


t2:=t+bo*exp(m*lIn(P)); 
q:=Ao*(1+C*(In(P)/1n(10)))/exp(n*ln(t2)); 
Qm:=q*Mo*Y*Fv; 
writeln(°Hệ số phân phối mưa rào là Mo:`, Mo:6:3); 
writeln(°Hệ số dòng chảy là Y:”,Y:6:3); 
writeln(°Cường độ mưa rào là q:”,q:8:2,` l/s.ha”}; 
writeln(“Lưu lượng nước mưa là Qm:°,Qm:8:2,' ]/s”); 
end; 
readIn 
end. 


Chú ý: Đặc điểm chương trình TN 4-1 trên là: 
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- Dùng cấu trúc mảng đrray và jƒ... then để đưa toàn bộ bảng 4-3 vào 
chương trình. 
- Vì bảng 4-3 chỉ có 7 giá trị Y1...Y7 nên nhập giá trị nÝ =7 . 
- Khi máy đòi nhập f[1], theo ví dụ 4-1 sẽ nhập như sau: 
f{I1: 70 
f2]: 0 
f[3]: 0 
f{4]: 0 
f[5]: 8 
f[6]: 0 
TU]: 22 
- Công thức tính t có chia cho 60 để đổi đơn vị giây ra phút (vì tốc độ 
nước là m/s). Khác với tính tay thường quy tròn số phút cho đơn giản. Vì vậy 
kết quả tính toán có khác nhau chút ít. ˆ 
Ví dụ nhập số liệu chạy để tính Q, s, Q2; rồi In ra được kết quả sau: 
Qm = 154,33 1/3, (so với Q;+= 152,57 l/) 


Qm = 162.08 l/s, (so với Q,; = 162;37 l/s) 
Cộng: 316,41 1/s so với 314,94 lís 


4-3 TÍNH TOÁN THUỶ LỰC MẠNG LƯỚI THOÁT NƯỚC ĐÔ THỊ. 
CHƯƠNG TRÌNH TN 4-2 


1) Đặc điểm chuyển động của nước thải đô thị 

Nước thải đô thị thường có nhiều cặn láng và rất khó lấy ra vì phức tạp và 
mất vệ sinh 

Cặn lắng đọng lại trong cống thường chứa 3 — 8% (theo thể tích) là chất 
hữu cơ với kích thước > 1mm và 92 — 97% là cát. Trọng lượng riêng của cặn 
là 14— 1,6 T/m”. 

Sơ đồ cấu trúc dòng chảy trong cống thoát nước xem hình 4-5 .. Khi cửa 
xả bị ngăn bởi mức nước sông hỏ, đồng chảy sẽ trở thành có áp và không 
còn khoảng trống. 
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Sơ đồ 4-5 cho ta thấy rõ: cận lắng càng nhiều dòng chảy càng bị thu hẹp, 
giảm tốc độ nước chảy và càng ngày càng gây nguy cơ ngập úng trong 
đường đô thị. 


1. Khoảng trồng 
2. Nước thải 
3. ăn lắng 





Hình 4-5: Sơ đô cấu trúc dòng chảy 


Đặc trưng chuyển động của nước thải đô thị trong cống là hệ số Ray-nôn 
— R,. Với cống tròn khi độ đầy hoàn toàn (h/d = l), R, được xác định theo 
công thức sau: 

V, 
R.= .ủ (4-15) 
Y- 
Trong đó: V - tốc độ nước trong cống, m/s; 
d - đường kính cống; 
y - hệ số nhớt của nước thải. 

Trạng thái nước chảy trong cống, kênh mương đô thị có thể là chảy 
rối, chảy đều hoặc không đều, chảy ồn định hoặc không ổn định. Nhưng 
trong tính toán, với trường hợp có mặt thoáng, để đơn giản thường coi là 
chảy đều, không áp. Tức là coi tốc độ trung bình V = const, tiết điện chảy 
@ = E = const, lưu lưng q = const, độ đốc thuỷ lực I = độ đốc cống ¡, chu 
VÍ ướt X = p, = CONsS†. 

Còn trường hợp khác: do khu đân cư mở rộng cống cũ không đủ thoát 
nước, do cửa xả ra sông bị ngập, do bùn rác cản dòng chảy..., dẫn tới tình 
trạng cống chảy ngập có áp. 


2) Các tiết điện cống và đặc tính thuỷ lực 


Các loại tiết diện cống thoát nước giới thiệu trên hình 4-6. Thường 
dùng nhất là cống tròn. Kết cấu có thể là bê tông cốt thép, xây gạch, xây 
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đá... Tuy vậy, trong một công trình nên tránh dùng nhiều chủng loại cống 
khác nhau. 





Hình 4-6: Các loại tiết diện cổng thoát nước 


Đặc tính thuỷ lực tốt nhất của tiết điện cống xác định bằng khả năng 
thoát nước lớn nhất, khi cùng có độ dốc và tiết diện ướt bằng nhau. Như vậy 
cống tròn là tốt nhất vì có bán kính thuỷ lực R.„ lớn nhất. 

@œ _ Fy 


R,=—=-® (4-16) 
5 


œ, F, - diện tích ướt (m?); 
X.›: P, - chu vi ướt (m), là chu vi tiếp xúc giữa nước và thành cống: 
a. Cống tròn 


Với cống tròn đường kính d, khi nước chảy đầy một nửa và hoàn toàn có: 





Ra „ HẠ” _đ 2s, (4-17) 
pe 4mxmd 4 
Cống chảy (không áp) đạt tối đa khi R, = 0,304 d, khi độ đây 
`a=h/d=0,813 
Độ đây a được định nghĩa là tỷ số h/d với cống tròn và h / H với các 
cống khác. +; 
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Với độ đầy không hoàn toàn ở cống tròn, h/d < 1, diện tích ướt F,„ chu vi 
ướt p„ có thể tính theo hình viên phân (khi h' < h): 
... r(S—l)+l.h 
2 
S=ợ.r (4-19) 


r - bán kính cống; 


(4-18) 


@ - góc chắn viên phân, tính bằng radian. 


Góc tìm được theo công thức cos@°/2 = (r — h”)/r, tính ra độ (xem hình 

4-6a). 
pPˆ=x.d-S (4-20) 

Với cùng trị số R,„ tốc độ dòng chảy trong cống tròn khi độ đầy h/d = 0.5 
và = I được xem là bằng nhau và tốc độ đạt tối đa khi h/d = 0.813. Lưu 
lượng thoát tối đa khi h/d = 0.95. Sau đó giảm dần, song lưu lượng khi nước 
chảy đầy hoàn toàn gấp đôi khi chảy một nửa. 

Quan hệ giữa tốc độ, lưu lượng với độ đầy trong cống tròn giới thiêu trên 
hình 4-7. Trục đứng là tỷ lệ độ đầy h/d =0.1 ; 0.2 ; 0.3 ;... ; 1.0. Trục ngang 
là mô đun tốc độ v„ và mô đun lưu lượng q,„ tính theo tỷ lệ đơn vị tốc độ và 
độ đầy khi chảy hoàn toàn. 








Hình 4-7: Các thành phần thuỷ lực của dòng chảy 
Gọi W, và K, là mô đun tốc độ và mô đun lưu lượng khi độ đầy h/d = I. 
Nếu tính C = (1/n).RỲ. Với y không đổi khi h thay đổi thì rõ ràng tỷ số K/K, 
= q, và W/W, = v, sẽ chỉ phụ thuộc vào độ nhám và kích thước của mặt cắt. 
Để tính nhanh, người ta tính sẵn K,„ W, ứng với dộ nhám n thường dùng. 
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Bảng 4-4 giới thiệu trị số K,„ W, ứng với n = 0,013 


Do cống tròn thoát nước tốt, dễ chế tạo hàng loạt và bền vững nên được 
dùng rộng rãi tới 90% trong mạng lưới thoát nước. 


Bảng 4-4. Trị số K, và W, của cống tròn với n = 0,013 


Ni 0.25 |0,5010.75 |1.00|1,25|1,50| 1/75 | 2,00 12,25 |2,50 | 2.75 | 3,00 


0,595 | 3,76 | 11,2 |24.0|43.7|71.0| 106,5 | 152,5 | 208.| 276 | 354 | 447 
12,1 |19,2|25,3 | 30,5 |35,6|40,1| 44.3 | 48,5 |52,2| 56,2 | 59,7 |63.3 


b. Kênh (cống) hình thang 






































Đặt độ đốc mái ta luy m = cotgœ , chu vị ướt tính như sau: 





pạ=b+2hVI +m? (4-21) 
Diện tích mặt cắt ướt: ` 
F¿,= ( + mh)h = (bh + m)h? (4-22) 
Để có mặt cắt có lợi nhất về thuỷ lực, cần có p„ bé nhất hay: 
dp 
°=0 4-23 
dh (4-23) 


Với mặt cắt hình thang, tuỳ trị số m xác định được tỷ lệ B = b/h có lợi 
nhất về thuỷ lực theo bảng 4-5. 


Bảng 4-5. Bảng trị số B = b/h có lợi nhất về thuỷ lực 
cho tiết diện hình thang 





0,50 |0/75| 1,00 | 1/25 | 1.50 | 1,75 | 2,00 | 2,25 | 2.50 








2,00| 1,562 |1,236 | 1.00|0,828| 0,702 |0,606 |0,532 |0,472 |0,424 | 0,385 











Bảng 4-5 cho thấy, với mặt cắt chữ nhật m = 0, B =2 tức là có lợi nhất khi: 
b=2h 
Bán kính thuỷ lực mặt cắt hình thang có lợi nhất khi R, = h/2 
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Cần nhắc lại rằng: mặt cắt có lợi nhất về thuỷ lực không có nghĩa là lợi 
nhất về kinh tế — kỹ thuật, nhất là với kênh lớn. Nhưng với kênh nhỏ, ít đào 
sâu thì có thể có lợi cả về kinh tế kỹ thuật. 


3) Công thức tính toán thuỷ lực mạng lưới cống 
Tính toán đầu tiên ta thường gấp là tính lưu lượng. 


Với đường ngoài đô thị, để tính lưu lượng chảy qua cầu cống, ta dựa vào 
địa hình, bản đồ... xác định các thông số tính toán như diện tích lưu vực, độ 
đốc lòng suối... rồi tính theo phương pháp cho trong quy trình. Quy trình này 
cũng có 2 loại: tính cho cống cầu nhỏ và cho cầu lớn. 


Với đường đô thị, khi thiết kế mạng lưới thoát nước mưa, liên quan đến 
điện tích lưu vực đổ vào từng giếng thu hàm éch, đó là những diện tích rất 
nhỏ (dưới I ha hoặc một vài hả) và được chia thành mảnh dọc 2 bên đường 
đô thị. Do vậy chịu ảnh hưởng chủ yếu bởi cường độ mưa, đặc điểm bẻ mặt 
phủ... như đã thể hiện qua tính toán ở mục 4-2. 


Tuy vậy, giai đoạn tính toán lưu lượng nước mưa ở mục 4-2, ví dụ 4-1 có 
một điểm giống như tính lưu lượng cầu cống nói chung: đó là lưu lượng do 
thiên nhiên và địa hình tạo thành. Điểm khác nhau là: với đường ngoài đô 
thị, lưu lượng đó chảy qua một cầu hoặc cống. Với đường đô thị, lưu lượng 
đó tập hợp dần lại theo nhiều đoạn cống đọc, theo nhiều nhánh cống dọc để 
đổ ra cửa xả, Do đó, bị chỉ phối bởi một hệ thống các thông số tính toán: độ 
đốc lòng cống, đường kính, độ đầy... thay đổi theo từng đoạn cống, ảnh 
hưởng lẫn nhau. Lưu lượng sẽ được kiểm tra, khớp nối lại cho hài hoà với 
toàn hệ thống. 

Công thức tính thuỷ lực mạng lưới cống đô thị, với giả định dòng chảy 
đều thường tính như sau: 


Tính lưu lượng thoát nước của cống: 


Q=F.V (4-24) 
Để tính tốc độ, khi I = ¡, theo công thức Sê-di: 
V=CvRi (4-25) 


Trong đó: Q - lưu lượng, m'⁄s 
F, - diện tích tiết điện ướt, mỸ; 
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V - tốc độ nước chảy, m/s; 

R, - bán kính thuỷ lực, m, xem công thức 4-16; 
1 - độ dốc thuỷ lực, lấy bằng độ dốc cống ¡ ; 

C - hệ số Sê-di. Theo Pavlốpki: 


c=dgr (4-26) 
n 


Trong đó: 


n - hệ số nhám, độ nhám, phụ thuộc vật liệu và phương pháp chế tạo 
cống. Xem bảng 4-6. 


y - số mũ, phụ thuộc độ nhám, hình dạng và kích thước của cống. 
y=2.5výn ~0,13—0,75VR(Vn ~0,1) (4-27) 
Khi d < 4000 mm thì n = 0,0013 và y = 1/6 = 0,1667 


Các trị số ở bảng 4-6 tương ứng với điều kiện sản xuất hoàn chỉnh, nếu 
sản xuất bằng thủ công thì độ nhám sẽ lớn hơn nhiều. Ví dụ loại cống gang 
của ta sản xuất bằng khuôn cát, n = 0,02 — 0,03. 


Bảng 4-6. Hệ số nhám n 











Loại cống (kênh) n trong công thức (4-26) 

Cống 

- Sành 0,013 

- Bê tông và bê tông cốt thép 0,014 

- Xi măng amiäng 0,012 

- Gang 0,013 

- Thép 0,012 
Kênh 

~ Gạch 0,015 

- Đá có trát vữa xi măng 0,017 

- Đất 0,025 








Gọi W là mô đun lưu tốc (hoặc đặc tính lưu tốc) khi ¡ = 1 


W-=CVR (4-28) 
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Công thức Sê-di (4-25) viết thành: 


V=Wji - (4-29) 
Gọi K là mô đun lưu lượng (hoặc đặc tính lưu lượng khi ¡ = 1) 

K=F,CVR (4-30) 
Công thức (4-24) viết thành: 

Q=F,.CvVRi = K⁄ï (4-3) 


Công thức (4-25), (4-31) là phương trình cơ bản của dòng chảy đều trong 
kênh hở (hoặc cống ngầm có khoảng trống). 


Đối với trường hợp thường gặp là kênh (cống) hình thang, phương trình 
(4-31) nêu lên mối quan hệ giữa lưu lượng Q và bề rộng đáy b, chiều sâu 
nước h, độ đốc mái kênh (m ~ cotgơ ), độ dốc đáy ¡, độ nhám lòng kênh n. 


Q=íf(b,h,m,n, ¡) (4-32) 
Với thoát nước đô thị, ta thường gặp các bài toán sau: 


a) Đã biết lưu lượng (qua tính toán đã nêu ở mục 4-2, 4-3, ví dụ 4-1), xác 
định mặt cắt kênh (cống). 


b) Với mạng lưới kênh (cống) đã có, tức là có mặt cắt hình học, do lưu 
vực thay đối, (như cải tạo mở rộng khu dân cư), giải phương trình (4-32) 
gồm 6 biến số khi đã biết 5, còn lại I biến số lấy làm ẩn số. 

c) Kiểm tra, xác định tình trạng ngập nước đô thị do cửa xả nước ra sông 
bị ngập, do lưu lượng vượt quá khả năng thoát nước của cống hiện có (và 
nhiều lý do khác nữa). Với bài toán này, chế độ chảy của cống ngầm trở 
thành có áp. Ta phải tính cao độ nước dâng, thời gian ngập nước... Bài toán 
khá phức tạp. 

Với bài toán b), tìm h khi biết Q, b, m, n, ¡ là một việc phức tạp nên phải 
giải bằng phương pháp thử dần. Ta cho các trị số h,, h;, h; ... tính ra các trị 
số F„ C, R tương ứng, vẽ biểu đồ K - h (hình 4-8 ). Mặt khác tính ra 
K,=Q/ï. 

Trên biểu đồ K,tìm ra trị số h, tương ứng là trị số ta cần tìm. 

Ví dụ 4-2: Cho một kênh thoát nước b = 4m, độ sâu h = 2m, m = l.5, 
độ dốc ¡ = 0,0002. Đây là kênh đất, sạch, thẳng, tra bảng xác định độ nhám 
n=0,025. Tính lưu lượng Q của kênh và tốc độ nước V. 
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"Trước hết tính bằng tay như sau: 
F,=(b+ mh)h = (4+ 1.5 x 2)2 = 14 mỶ 


p,= b+2hV1+mẺ =4+23/1+1,5? =112m 


R.=E¿/p,= 14/11.2 = 1,25 m 
= lny 
n 


y theo công thức (4-27): 
y=2.5v/n ~0,13—0,75/R(Vn ~0,1) 
=2,5./0,025 —0,13— 0,75-41,25(/0,025 —0,1) = 0,2163 


€=—L x1,259213 ~ 41,98 
0,025 


Vậy K=E,CVR =14x41,98./1,25 = 657 m'/s 
Q=K =652/0,0002 =9.3 m”/s 


V=CNR.i =41,98./1,25x0,0002 = 0,66 mís 


4) Chương trình TN 4-2: Tương quan Q, V , h trong kênh, cống 


Chương trình Pascal cho ví dụ 4-2 được lập như sau: 


Program Tính _Q_kênh_ đất _hình _ thang; 
UuS€S CTT; 
Var 
b,m, E,P, R,C, n, y, K, ¡, Q, V, h: real; 
h1, ho: Integer; 
begin 
clrscr; 
write(°nhap vao be rong day muong b(m):`); readln(); 
write(nhap vao mai ta luy cotan(a) = m:`}; readIn(m); 
write(°nhap vao do doc muong 1:`}; readIn(); 
write('nhap vao he so nham n:”); readln(n); 
write(°nhap vao do sau muong h1(m):°); readln(h1); 
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for h1:=20 to ho do 
begin 

h:= h1/10; 

F:= (b + m*h)*h; 

P:=b + 2*h*sqrt(1 + sqr(m)); 

R:= F/P; 

y:= 2.5*sqrt(n) ~ 0.13 — 0.75*sqrt(R)*(sart(n) — 0.1); 

€:= exp(y*In(R)) ; 

K:= F*€C*sart(R); 

Q:= K*sqrt(); 

V;= C*sar(R*0; 
writeln(°Do sau muong la h:°,h:6:2,` mỶ), 
writeln(Mo dun luu luong K:?,K:§:2, m3/s°); 
writeln(°Luu luong cua kenh la Q:°,Q:8:2,` m3/5”); 
writeln(“Toc đo nuoc trong kenh la V:?,V:8:2,* m/§”); 
end; l 
readln 
end. 


Nhấn Ctrl+F9 rồi nhập số liệu lần lượt như ví dụ 4-2, sẽ ra kết quả 
K=657 m°/s, Q =9,3 mỶ/s, V = 0,66 m/s như trên. Chú ý nhập h1 = 20. 


Lưu ý đặc điểm chương trình TN 4-2 là: cho trị số h1 thay đổi (tức h thay 
đổi) để vận dụng tìm chế độ chảy của kênh với Q khác nhau. Điều này sẽ thể 
hiện qua ví dụ 4-3. 


Cho trị số h1 = 10h là để đưa h1 về số nguyên (integer), như vậy mới 
dùng lệnh for h1:=20 to ho do được . 


Ví dụ 4-3: Cũng với kênh trên, nếu phải thoát với lưu lượng 15 mỶ/s thì độ 
sâu h và tốc độ nước V là bao nhiêu ? 


Tính bằng tay: trước hết tính: 
Q 15 3 
K,=-E=——- l069.7 m⁄s 
° vị vJ0,0002 
Tính thử dần bằng giả định các trị số h, theo bảng 4-7 sau: 
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Bảng 4-7. Bảng tính tương quan h, K 
15,015 11,572 
16,060 11,932 
17,135 12293 


18,240 12653 
19,375 13,014 
20,540 13,375 





Vẽ biểu đồ quan tệ K — h như hình 4-8, ứng với K, = 1060,7 mỶ/s ta xác 
định được hạ = 2,55 m 


Tốc độ nước V có thể tính theo h = 2,5 m. 


V =CNR.i =43.694/1,49 x 0,0002 = 0,75 m/s 





Hình 4-8: Biểu đồ quan hệ K ~ h 


Như vậy là mức nước kênh khi thoát với Q = 1Š mÌ/s, so với Q = 9,3 m°/s 
đã nâng cao 2,55 — 2,00 = 0,55m. 


Vận dụng chương trình Pascal TN 4-2 để giải bài toán ví dụ 4-3, sau khi 
nhập các số liệu, trong đó h1 = 26, ta được một dãy kết quả sau: 
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Do sau muong la h: 2.10 m 

Mo đưn luu luong K: 724.82 m3ÍS 

Luu luong cua kenh la Q: 10.25 m3ls 
Toc do nuoc trong kenh la V: 0.68 m3/s 
Do sau muong la kh: 2.20 m 

Mo dun lun luong K: 796.02 m3ls 

Lien luong cưa kenh la Q: 11.26 m3is 
Toc do nuoc trong kenh la V: 0.70 mỉ 
Do sau muong la h: 2.30 m 

Mo dun luu luong K: 871.04 m3is 
Lum luong cua kenh la Q- 12.32 m3/s 
Toc do nuoc trong kenh la V: 0.72 mís 
Do sau muong la h: 2.40 m 

Mo dun luu luong K: 949.96 m3/s 
Lum luong cua kenh la Q: 13.43 m3/s 
Toc do nuoc trong kenh la V: 0.74 mís 
Do sau muong la h: 2.50 m 

Mo dun luu luong K: 1032.85 m3/s 
Luu luong cua kenh la Q: 14.61 m3!s 
Toc do nuoc trong kenh la V: 0.75 mís 
Do sau muong la h: 2.60 m 

Mo dun lun luong K: 1119.78 m3/s 
Luu luong cua kenh la Q: 15.84 m3íÍs 
Toc do nuoc trong kenh la V: 0.77 mis 


Theo kết quả ¡n ra như trên, ta có thể vẽ luôn biểu đồ quan hệ Q — h, rồi từ 
trị số Q = 15 mŸ/s trên trục hoành, dóng lên sẽ tìm được h tương ứng là 2,55 
m (hình 4-9) 

Từ dãy kết quả trên, cũng xác định được tốc độ V = 0,75 m/s ứng với 
Q= 14,61 = 15 mỶ⁄. 
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Hình 4-9: Biểu đồ quan hệ Q — h. 


4-4. CHƯƠNG TRÌNH TN 4-3: XÁC ĐỊNH ĐƯỜNG KÍNH CỐNG 
TRÒN THOÁT NƯỚC (VỚI H/D = 0.80) 


CHƯƠNG TRÌNH TN 4-4: TÌM V THEO Q VÀ D 
1) Ví dụ 4-4 
Xác VN đường kính cống tròn thoát nước mưa ở ví dụ 4-1, có 
Q=0.316 mỶ⁄s, độ đốc ¡ = 0.006, n = 0,013. Yêu cầu độ đầy a = h/d <0,80. 
Nội dung tính toán bằng tay như sau: 
Dựa vào biểu đồ hình 4-5, với a = 0.80, ta tra được q, =l,q,=K/K,=1 
K=Q/vi 
Vy _ 
,316 
Ks=K/q= nổ “Trang T0 
Mặt khác theo công thức (4-30) khi chảy đầy ta có: 


zd? 1/495 (a2 
K,=RVC, R, =5 T 





Trong đó với cống tròn R„ = d/4 = 0.25d 
Tương ứng: 


1 
GiS Nước 


x0,25!⁄%4!/6 = 61,054d1/6 
n 0,013 
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d d2 
run 
nd? 2 
F,=——=0,7854.d 
4 


1/2 
4,08 = 0,7854.d2 x 61,054d'/Ê x =— =23,9759d8/2 


dŠ? = 0.17017 
d=0.5I m, dùng d = 0,50 m 
h=0.80 d=0,40 m 
Biểu đồ 4-7 với h/d =0.80 có qụ = l 
Vụ = W/W, = I,18 = f;(a) 
Tra bảng 4-4 với d = 0.50 có W, = 19,2 
Vậy V = W-Ïï (công thức 4-29) 
= V„. W,ï = 1,18 x 19.2 4/0,006 
= 1,75 m/s 


So với V, giả định ở ví dụ 4-1 là 1/70 m/s xấp xỉ 1.75. Vậy đạt yêu cầu, 
không phải tính lại Q, ở ví dụ 4-1. Š 


Giả sử, vì công trường chỉ có loại cống Ø75cm. Theo bắng 4-4 ta có 
K, = 11/2 m”/s, W„= 25,3 m/s 


K„Q __ 0316 nà, 


®SEKC “KV 12/906 
Tra biểu đồ 4-7 tìm được h/d = 0,40, V„ = 0,90 
hạ = 0,40 x 0,75 = 0,30 m 
V=Wýi =v,.W,vi 
=0,90x 25,5./0,006 = I,76m/s 
2) Lập chương trình TN 4-3 


Đặc điểm chương trình này là: 
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- Cho trị số d biến đổi trong một khoảng nào đó, (phương pháp thử dần), 
trị số d cho Q xấp xỉ 0,316 mỶ/s là trị số ta cần tìm. 


- Ta vẫn kết hợp dùng biểu đồ 4-7 để tìm trị số qo. Ở ví dụ 4-4, vì 
h/d = 0.80 nên tra biểu đồ được q, = l. 


Chương trình Pascal được lập như sau: 


Program Tim_duong_kinh cong d theo Q; 


uS€S CTt; 


M)4 


begin 
€CÌTSCT; 


Q,qo,K,Ko,i,n,h,Fo,Ro,Co,y,V,Vo,W,d: real; 
dl,dn: Integer; 


write(°nhap vao so tra bieu do 4-7 trí so qo:”); readln(qo); 
write(°nhap vao do doc cong ¡:`); readln(); 

write(“nhap vao he so nham n:'): readln(n); 

write(“nhap vao so mu y:”); readÌn(y); 

write(nhap vao duong kinh đn(m):`); readln(dn); 


for d1:=10 to dn do 


begin 


‹ 


d:=d1/100; 

Fo:=pi*sqr(d)/4; 

Ro:=0.25*d; 

Co:=exp(y*In(Ro))/m; 
Ko:=Fo*Co*sart(Ro); 
Q:=Ko*qo*sqrt(); 

writeln(°Duong kinh ong d(m):`,d:6); 
writeln(“Tri so Ko: `,Ko:6:3); 
writeln(“Tri so Co:”,Co:6:3); 
writeln(“Tri so Fo:?,Fo:8:4); 
writeln(Luu luong Q(m3/s):`,Q:8:3); 


end; 


readin 
end. 


115 


Nhập số liệu cho chạy, (khi n = 0,013 thì y = 1/6 = 0,1667): 


qo: l 
¡:0,006 
n:0,013 
y:0,1667 
dn: 52 
được kết quả sau 
dím)= 0,49 0,50 0,51 0,52 
Q(m⁄s)= 0277 0,293 0,308 0,325 


Vậy d= 0.515 m. Theo thiết kế cống định hình ta chọn d = 0.50 m. 


3) Lập:chương trình TN 4-4 tìm V theo Q và d 


Để tiếp tục tìm tốc độ nước chảy V trong ví dụ 4-3, ta lập chương trình 
TN 4-4 sau: 
Program Tim_V_theo_Q_va_d; 
uS€S CTT; 
va — 
Q,qo,K,Ko,Fo,Ro,Co,y,n,V,Vo,Wo,d,i,ho,a: real; 
begin 
CÏTSCT ; 
write( “nhap vao luu luong Q(m3⁄5):”); readln(Q); 
write(°'nhap vao duong kinh cong d(m):”); readln(d); 
write(nhap vao do dọc cong ¡:`); readln(i); 
begin 
n:=0.013; 
y:=0.1667; 
Fo:=pi*sar(d)/4; 
Ro:=d/4; 
Co:=exp(y*In(Ro))/n; 


Ilồ 


Ko:=Fo*Co*sqrt(Ro); 

qo:=Q/(Ko*sqrt()); 

Wo:=Co*sqrit(Ro): 

writeln( “Tri so Wo la:`,Wo:6: L); 

writeln( “Tri so Ko:°,Ko:6:2); 

writeln( “Tri so qo:”,qo:6:3,` m3/s°); 

writeln(“Từ qo tra biểu đỏ 4-7 tìm a=ho/d và Vo:”); 
writeln(°Chiều sâu nước chảy là ho=a*d (m):`); 
writeln(“Tốc độ nước chảy là V=Vo*Wo*sqrt():'}; 


end; 


readln 


cnd. 


Đặc điểm chương trình TN 4-4 là: 


- Kết hợp với sử dụng biểu đồ 4-7. 


- Bảng 4-4 đã được đưa vào chương trình qua áp dụng công thức 


W. =CuVR,. 


- Hàm số mũ C„ = Rš /n đã áp dụng công thức (4-12) để đưa về exp 
Cho chạy TN 4-4, nhập số liệu: 


Ra kết quả: 


Q(m⁄s) =0,316 
d(m) = 0.75 
¡=0,006 

Trị số Wo là: 25,2 
Trị số Ko: 11,13 

Trị số qo: 0,366 mỶ⁄ 


Ta thấy kết quả tương quan Wo và Ko đúng như bảng 4-4 trên. 
Từ qo tra biểu đồ 4-7 được độ đầy a = h/d = 0,40 và Vo = 0,90. 


Vậy: 


ho = a*d = 0.40*0.75 = 0.30 m 
V = Vo*Wo*sart() = 0.90*25.2*sqrt(0.006) = 1.76 m/s 


Kết quả đúng như ví dụ 4-4 đã tính ở trên. 
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4-5. CHƯƠNG TRÌNH TN 4-5: TÍNH TỔN THẤT CỤC BỘ CỦA DÒNG 
CHẢY TRONG CỔNG. 
1) Khái quát chung 


Tổn thất cục bộ thường được tính ở giếng thăm, giếng chuyển bậc với 
cống có d > 500 mm và ở cửa xả ra kênh, sông thoát nước chảy qua đô thị. 
Do tổn thất cục bộ làm chậm tốc độ chảy, gây ra hiện tượng dềnh nước, làm 
lắng đọng bùn, lâu ngày có thể làm tắc cống. 


Sơ đồ tổn thất cục bộ tại chỗ thu hẹp đột ngột và cửa ra thể hiện trên hình 
4-10. Cột nước tổn thất cục bộ được tính theo công thức: 
h,=tạ— (4-33) 


tạ - hệ số tổn thất cục bộ, xem bảng 4-8; 
V (m/$) — tốc độ dòng chảy ở mặt cắt sau chỗ tổn thất, theo chiều nước chảy, 
g= 9.8 m/s? - gia tốc trọng trường. 


Bảng 4-8. Trị số tạ 





Vị trí gây tổn thất cục bộ 


- Cửa thu nước vào kênh mương ¡ 


~ Cửa thu nước vào ống gờ nhọn 


- Cửa thu nước vào ống ở dưới mực nước 19 


- Van khoá ở mức độ hở 
+ hoàn toàn 0,5 
+3/4 0/26 
+1⁄2 : 2,06 

- Van ngược chiều $ 

- Khuỷu ống 90”, Ø100 ~ 1000 mm 0..39 - 0,5 





Tại cửa xả là nơi mở rộng đột ngột, có thể tính cột nước theo định luật 
Booc-đa: 


_@=V;} 
2 


h (4-34) 


m 
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Áp dụng công thức (4-34) có thể kết hợp với đo đạc thực tế (như đo tốc 
độ V; của sông có nhiều cửa xả nước trong mùa ngập lụt) 

Hệ số tổn thất cục bộ t„ có thể tính cho trường hợp thu hẹp đột ngột 
(hình 4- L0a): 


ặ 
tụ 0091 -#] (4-35) 
R 
t 2 
Trường hợp cửa xả: tụ= ạ _- #] (4-36) 
1 


Trong đó f,, F, là điện tích mặt cắt nhỏ và to. Khi F, lớn so với f„ thì t, = l. 


a @ „ 

9 Ị Ị ” | | MNN 
—==-.':. —— 1n. 
Ị | 
= .. na =iI I3 _ _ 
"J° „21 : T 1 
| | 
=:.= . TS 2y 

l l Ì Đửa xã 


Chỗ thu hẹp đội ngột 


Hình 4-10: Một số dạng tốn thất cục bộ 
2) Ví dụ 4-5 
Tính toán tổn thất và nước dẻnh với sơ đồ hình 4-11. Trên cơ sở tính toán 
ở ví dụ 4-1, 4-2, 4-3, 4-4. Coi như cống È500, ¿750mm được đặt theo 
nguyên tắc độ đầy h/d = 0,8 (đường nét đứt) và mực nước thiết kế (MNTK) 
= 5,02m ở cao độ cửa xả, cũng tương ứng độ đầy 0,8 của cống ¿750. 
Tại G¡, tạ = 0.50, Vị = 1/75 m/s. Tổn thất cột nước: 


1,78? 


hụ 0.50x 2T TC =0,08m 





2x9, 


Tại G,., t = 0.50, V; = 1.76 m/s có: 


2 
hạ =0,50x-1 2— =0,08m 
2x9,8 
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Tổn thất tại cửa xả, t, = 1, V =0,75 m/s. (Tương ứng với kênh khi 
Q= 15 m3⁄s). 
0,75? 


x9, 


=0,03 





hị; = I,00x 


Do mở rộng khu dân cư, mức nước tăng lên: 
hụ = 0,55m 
(nên có mức nước thực tế MNTT = 5.02 + 0.55 = 5.57 m) 
Vậy tổn thất cột nước toàn bộ là: 
h,= hị + hạ + hạ + hụ = 0,74m 
Vậy cao độ nước dềnh từ cao độ thiết kế 5.02 là: 
hạ = 5,02 + 0,74 = 5,76 m 
(Tính h, đơn giản, coi mức nước dẻnh bằng tổn thất cột nước) 
Cao độ này ngập đến đỉnh cống È750 ở G; và cống 500 ở G, chỉ còn hở 
chiều cao là: 
h' = 6,28 - 0,08 - 5,76 = 0,44 m 
(Trị số 0,08 là bề dày thành cống ) 
Như vậy, nguyên lý thoát nước cho E ¡› F; lúc này là chảy theo xi phông 
trong đoạn G¡ — C 


X* 


4 








Ẻ 
L 
| 


Cao độ mặt đường Ð„„ |ro 6 7-14| 
Cao độ đỉnh cống Ð _, 6.28 580, 5.85 525 
Cao độ đáy cống Đ, Ì 5.70 sz2l nõ0 s2 

4ị I 


Cao độ đáy giếng Đ, !540 
Hình 4-11: Mặt cắt dọc cống theo ví dụ 4-5. 
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3) Lập chương trình TN 4-5: tính tồn thất cục bộ 
Program Tính _tổn_thất_cục_bộ; 
u€s CTt; 
var 
h,h1,h2,h3,h4,tn,tx: real; 
1,V: integer; 
v: array[1.. 10] of integer; 
begin 
cÌrsCT; 


write (“nhập vào mức nước dênh cao hơn thiết kế h4(m):`); 
readIn(h4); 


write(nhập vào hệ số tốn thất ở giếng thăm tn:”); readln(tn); 
write('nhập vào hệ số tổn thất ở cửa xả tX:`); readln(tX); 
write(°nhập vào số vÝ:”); readln(vf); 
for ¡:=1 to vf do 
begin 
write(*v[°1`]: =`); readin(v[]): 
if v[i]Ev[1] then h1: = n#*sar(v[11/100)/2*9.8); 
if v[]=v[2] then h2: =tn*sqr(v[2]/ 1003/2*9.8); 
if v[i]EvIB] then h3: =tx*sgr(v[3)/ 100)/2*9.8); 
end; 
bcgin 
h: =h1+h2+h3+h4; 
writeln(°Tổn thất cột nước toàn bộ là h:”,h:6:2,' mn; 
end; 
readÌn 
end. 


Chạy theo số liệu thí dụ 4-5, in ra kết quá như sau: 
nhạp vao mục nuoc denh cao hon thiet ke h4(m): 0.55 
nhạp vao he so lon that o gieng tham tn: 0.5 
nhạp vao he so ton thai ð CHg Xã [X: 10 
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nhạp vao so VỆ: 3 


v/1J: = 175 
v(2}: = 176 
v(3J]: = 75 


Ton that cot nuoc toan bo la h: 0.74 m 
Đặc điểm chương trình TN 4-5 là: 
- Dùng cấu trúc mảng œray và ...hen để đưa vào tốc độ nước ở các 
đoạn khác nhau 
- Tốc độ V được nhân với I00 để thành số nguyên, dùng được lệnh ƒoz 
=1] to vỆ do 


- Lưu ý: sau khi nhập vf = 3, ta phải nhập tiếp v{[1]:=175, v[2]:=176, 
v[3]:=75 máy mới chạy ra kết quả h = 0.74 m. 


4-6. MỘT VÀI VẤN ĐỀ VỀ PHẦN MỀM THOÁT NƯỚC 


Tính toán thuỷ lực thoát nước đô thị là tính cho cả một mạng lưới với nhiều 
tuyến cống và các “nút” là các giếng thu — giếng thăm, rất phức tạp, nên cần 
xây dựng các phần mềm tính toán trên máy vi tính. Trong đó, trước hết là xây 
dựng các mô hình tính toán dựa trên các thông số cơ bản như: lượng mưa, mặt 
phủ, địa hình, địa chất, thuỷ văn, mật độ dân số, tiêu chuẩn cấp, thoát nước... 


Từ những năm I960 - 1970 các nước như Anh, Mỹ, Hà Lan, Đức, 
Canađa đã nghiên cứu và phát triển vấn đề này rất mạnh. Còn Việt Nam, xây 
dựng mô hình như thế nào để lập chương trình tính cho phù hợp với các 
thông số cơ bản của Việt Nam là vấn để cần nghiên cứu, để việc tính toán 
thoát nước đô thị được nhanh chóng, hợp lý. 


Trên tạp chí 7hế Giới mới năm 2003 đã đưa một thông tin: có 20 nước ứng 
dụng công nghệ thông tin đạt hiệu quả nhất là: !- Mỹ, 2- Singapore, sau đó 
đến các các nước khác như Anh, Pháp, Đức, Philipin, Thái Lan v.v... Đặc biệt 


không có cả Nga và Trung Quốc (2!), còn Việt Nam tất nhiên là “chưa có”! 


Thời gian qua, công nghệ phần mềm của Việt Nam đã được quan tâm đầu 
tư®à đã đạt được một số thành tựu, nhưng xem ra để được xếp hạng trong số 
20 nước như Singapore, Philipin, Thái Lan thì còn lắm chông gai. 
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Phụ lục I 
TÓM TÁT CÁC THỦ TỤC VÀ HÀM CỦA TURBO PASCAL, 


1. Hàm ABS 

Cú pháp: 
ABS(r:Real): Real; 
ABS(i:Integer):Integer; 


Ví dụ: 
Var a 
Begin 
a:-10;Writeln(Abs(a):3); 
End 
Kết quả: 
10 
Nếu biến a là số thực (ví dụ - 10,6) thì kết quả nhận được: 
-10,6 
2. Hàm ADDR 
Củ pháp: 


ADDR(Var <biến>):Pointer 
Công dụng: Cho địa chỉ của biến. 
3. Hàm APPEND 
Cú pháp: 

Append(Var F:TexÐ; 
Hầm Append dùng để mở tệp F và định vị con trỏ tại vị trí cuối của tệp. 
4. Hàm ARC 
Cu pháp: 

,Arc(x,y:Integer,gd,gc,R:Word); 

Dùng để vẽ một cung tròn có tâm là (x, y), có bán kính R, góc đầu là gd, góc 


cuối là gc. 
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Ví dụ: 
Arc(100,100,0,Í 80,20); 
Š. Hàm ARCTAN 
Cú pháp: 
Arctan(r:Real): Real; 
Cho giá trị dạng Real của Arctangent của đối số r. 
Vị dụ: 
Arctan(2.3) 
Kết quả: 
1.16 
6. Thủ tục ASSIGN 
Cú pháp: 
Assign (F,<tên tệp>:string); 
Dùng để gán tên tệp ghi trong <tên tệp> và biến F có dạng Text. 
Ví dụ: 
Assign(F,'CANBO); 
Gán tệp 'CANBƠI vào biến F, Trong đó biến F đã được khao báo có dạng Text. 
7. ASSIGNCRT 
Cú phán: 
AssignCrt(ŒF) 
Công dụng: Cho phép người sử dụng thay vì đưa kết quả ra màn hình lại đưa vào 
tệp F, Trong đó biến F đã được khai báo có dạng Text. 
8. Thủ tục BAR (Graph nit) 
Củ pháp: 
Bar(x1,y1.,x2,y2: Integer); 
Dùng để vẽ một hình chữ nhật được xác định bởi góc trên bên trái có tọa độ 
(xI,y1) và góc đưới bên phải là (x2,y2). 
Ví dụ: 
Bar(19,20,100,200), 
9. Thủ tục BAR3D (Graph Unit) 
Cũ pháp: 
Bar3IXxi,y1,x2,y2:Integer, <sâu>: Word,Top: Boolean); 
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Thủ tục này dùng để vẽ một hộp ba chiều có tô màu, Trong đó bề mặt là hình 
chữ nhật được xác định bởi các tọa độ (xI,yL) và (x2,y2), chiều sâu xác định bởi 
biến <sâu>. Nếu biến Top là ON thì hình hộp có nắp, ngược lại, nếu biến Top là 
False thì hình hộp không có náp. 

Ví dụ: 

Bar(50,50, L00,100,60,On); 

10. Thủ tục CHDIR 

Cú pháp: 

ChDir(s:String); 

Dùng để thay đổi thư mục làm việc hiện thời sang thư mục có đường dẫn được 
chỉ thị trong chuỗi s. 

Ví dụ: 

ChDir(CHONG), 
11. Hàm CHR 
Cú pháp: 
Chr(¡:Integer); 
Hàm Chr cho kết quả là kí tự có số thứ tự (mã ASCTT) bằng I. 
Ví dụ: 
Chr(65); 
Kết quả: 
A 
12. Thủ tục CIRCLE (Graph Unit) 
Cú pháp: 
Circle(x,y: Integer, R: Word); 
Dùng để vẽ đường tròn có tâm là (x, y) và bán kính là R. 
Ví dụ: 
Circle(100,100,50); 
13. Thủ tục CLEARDRIVE (Graph Unit) 
Cú pháp: 
ClearDrive 


Dùng để xóa màn hình đồ họa. 
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14. Thủ tục CLEARVIEWPORT (Graph Unit) 
Cú phán: 
ClearViewPort; 
Dùng để xóa cửa số hiện thời được tạo ra bởi SetViewPort và được ghỉ nhận 
bằng GetViewSettings: 
15. Thủ tục CLOSE 
Cú pháp: 
Close(Var E: File); 
Trong đó biến F đã được khai báo đạng File. Thủ tục này đùng để đẩy vùng đệm 
của tệp F ra đĩa và đóng tỆp. 
Ví dụ: 
Close(0; 
16. Thủ tục CLOSEGRAPH (Graph Dnit) 
Cú pháp: 
Closegraph; 
Dùng để khôi phục màn hình trước khi khởi tạo đồ họa. Thủ tục này cũng giải 
phóng vùng nhớ do hệ đồ họa sử dụng. Hay nói một cách khác là đóng chế độ đồ họa. 
17. Thủ tực CLREOL (Crt Unit) 
Cú pháp: 
ClrEol; 
Dùng để xóa từ vị trí con trỏ đến cuối dòng hiện hành. 
Ví dụ: 
GotoXY(10,10); 
ClrEol; 
18. Thủ tục CURSCR (Crt Unit) 
Cú pháp: 
ClrScr, 
Dùng để xóa màn hình và đưa con trỏ về tọa độ (I,1). 
19. Hàm CONCAT 
Cú pháp: 
Concat(S1,S2...Sn: String): String; 
Hàm Concat dùng để tạo ra một chuỗi mới bằng cách nối các chuỗi là đối Số của 
hàm: SĨ, S2,..., Sn. Độ dài tối đa của chuỗi mới là 225. Nếu điều kiện này không 
thỏa mãn máy sẽ thông báo lỗi. 
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Ví dụ: 
s1:=Hà Nội-; s2:='Việt Nam; 
s:=Concat(s ],s2); 
Writeln(s); 
Kết quả: 
Hà Nội - Việt Nam 
20. Hàm COPY 
Cú pháp: 
Copy(S:String; m,n: Integer): String; 


Hàm cho kết quả là một chuỗi con được trích ra từ chuỗi S bắt đầu từ kí tự thứ 
m và lấy ra n ký tự. 


Ví dụ: 
s:=Nguyen Van Trinh; 
%c:=Copy(s,8,3);Writeln(se); 
Kết quả: 
Van 
21. Hàm COS 
Cú pháp: 
Cos(X: Real): Real; 
Hàm cho Cosine của góc X, Trong đó X được tính bằng Radian. 
Ví dụ: 
X:=0,5;,Writeln(Cos(X):5:2); 
Kết quả: 
0.88 
22. Thủ tục DELAY (Crt Unit) 
Cú pháp: 
Delay(tg: Word); 
Tạm dừng chương trình trong khoảng thời gian tg, Trong đó tg được tính bằng 
miliglây. 
Ví dụ: 
Delay(1000), 
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23. Thủ tục DELETE 
Cú pháp: 
IDelete(S: String;m,n: Integer); 
Thủ tục Delete dùng để xóa đi m kí tự bắt đầu từ ký tự số n trong chuỗi S. 
\? dụ: 
S:=Nguyen Van Trinh; 
S$c:=Deleie(S,§,4); 
Writeln(Sc); 
Kết quả: 
Nguyen Trinh 
24. DELLINE (Crt Unit) 
Cú pháp: 
Deline; 
Xóa màn hình chứa con trỏ. Các dòng phía dưới sẽ cuộn lên một dòng. 
25. Thủ tục DETECTGRAPH (Graph Unit) 
Cú pháp: 
DetectGraph( Var gd,gm: Integer); 
Thủ tục này dùng để phát hiện kiếu màn hình và mode đồ họa và gán cho các 
biến gđ, gm. 
Ví dụ: 
Uses Graph: 
Vạr 
ød,em: Integer; 
Begin 
DetectGraph(gd,gm); 
Writeln("Kiểu màn hình:”,sd:2); 
Witeln(“Mode đồ họa: ,gm:2); 
End. 
Kết quả (ví dụ): 
Kiểu màn hình: 9 
Mode đồ họa: 2 
26. Hàm DISKFREE (Dos Unit) 
Củ pháp: 
DiskFree(<ổ đia>: Word); Longint; 
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Cho biết số byte còn trống trên ổ đĩa được chỉ định bằng biến <ổ đia>. Nếu 
<ổ đĩa> bằng: 


+ 1 Cho kết quả của ổ A. 
+ 2 Cho kết quả của ổ B. 
+ 0 Cho ổ đĩa mặc định. 
Ví dụ: 
A:=DiskFree(0); 
27. Hàm DISKSIZE (Dos Unit) 
Củ pháp: 
DiskSize(<ổ đĩa>: Word):Longinr; 


Cho biết dung lượng đĩa tính theo byte trên ổ đĩa được chỉ định bằng biến <ổ 
đĩa>. Nếu <ổ đĩa> bằng: 


+ 1 Cho kết quả của ổ A. 
+ 2 Cho kết quả của ồ B. 
+0 Cho ổ đĩa mặc định. 
Kết quả nhận được có dạng Longint. 
Ví dụ: 
A:=DiskSize(0); 
28. Thủ tục DISPOSE 
Cú pháp. 
Dispose(P: Pointer); 
Giải tỏa vùng bộ nhớ phân chia động cấp phát cho biến con trỏ P. Hàm này được 
dùng sau khi đã tạo ra một vùng cho biến con trỏ P bằng lệnh New. 
29. Hàm DOSEXITCODE (Dos Uni) 
Cú pháp: 
Dosexitcode; 


Trả về mã lỗi của tệp chương trình cọn. Kết quả có dữ liệu đạng Word. Kết quả 
nhận các giá trị như sau: 


0 Chấm dứt bình thường. 

1 Chấm dứt do ấn tổ hợp phím Ctrl+C. 
2 Chấm dứt do lỗi thiết bị. 

3 Chấm dứt do thủ tục Keep, 
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30. Thủ tục DOSVERSION (Dos Unit) 
Cú pháp: 
DosVersion; 
Cho số liệu của hệ điều hành. 
31. Thủ tục DRAWPOLY (Graph Unit) 
Củ pháp: 
DrawPoly(n,A}; 
Trong đó n có dạng Word và A là một máng. Thú tục này vẽ một đa giác có n 
đỉnh. Máng A chứa tọa độ các đỉnh của đa giác. 
32. Hàm EOEF 
Cú pháp: 
EofŒ): 
Trong đó F là một biến dạng File. Hàm Eof cho kết quả là một giá trị logic: 
- True: Nếu con trỏ đặt ở cuối tệp. 
- False: Nếu con trỏ không đặt ở cuối tệp. 
33. Hàm EOLN 
Cú pháp: 
EoLn(F) 
Trong đó F là biến dạng File. Hàm EoLn cho kết quả là một giá trị logic: 
- True: Nếu con trỏ ở cuối đồng hoặc cuối tệp. 
- False: Nếu con trỏ không ở cuối dòng hoặc cuối tệp. 
34. Thủ tục ERASE 
Cú pháp: 
Erase(f); 
Trong đó F là biến tệp. Hàm này dùng để xóa tệp được chứa trong tệp f. 
Vì dụ: 
Vạr 
f: File; 
Begin 
AssignŒ'VIDU.PAS); 
Erase(f); 
End. 
Chương trình trên xóa tệp VIDU.PAS trong thư mục hiện thời. 
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35. Thủ tục EXEC 
Cú pháp: 

Exec(<đường đãn>,<tham số>); 
Hàm Exec thực hiện tệp có tên nằm trong <đường dẫn> với các tham số. 
Ví đụ: 

ExecCC:BKEDXBKED.EXE:, Baocao); 
36. Thủ tục EXIT 
Cú pháp: 

Exiut 
Thủ tục Exit dùng để ra khỏi chương trình con hoặc dừng thực hiện chương trình. 
37. Hàm EXP 
Củ pháp: 

Exp(X 
Trong đó X là số thực. Hàm cho giá trị có dạng số thực là kết quả của e mũ X. 
Ví dụ: 

Writeln(Exp(3):L0:2); 
Kết quả: 

20.09 
38. Hàm FEXPAND (Dos Unit) 
Cú pháp: 

FEXPand(P); 
Trong đó P là một tên tệp. Hàm mở rộng tên tệp thành một tên tệp đầy đủ. 
Ví dụ: 

Uses Dos; 

Var S%c: String; 

Begin 

$c:=FexPand(VIDU.PAS?; 
Writeln(Sc); 

End. 
Kết quả (ví dụ): 

CATURBOXVIDU.PAS 

là tên đầy đủ bao gồm cả đường dẫn của tệp. 
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39. Hàm FILEPOS 
Cú pháp: 
FiePos(P), 

Trong đó P là biến tệp. Hàm cho giá trị dạng Integer là số hiệu bản ghi (phần tử) 
mà con trỏ tệp F đang trỏ tới. 

40. Hàm FILESI2ZE 

Củ pháp: 

FileSize(F), 

Trong đó F là biến tệp. Hàm cho giá trị dạng Integer là số phần tử của biến tệp F. 

41. Thủ tục FILLELLIPSE (Graph Unit) 

Củ pháp: 

FHIEIHpse(x.y,a,b); 

Trong đó các biến: x, y đạng Integer, a, b có dạng Word. Thủ tục này vẽ và tô 
màu một hình ellipse có tâm là (x, y), bán kính đọc là a, bán kính ngang là b. 
Ellipse được tô bằng màu và mẫu hiện hành. Màu của đường viễn là màu đang quy 
định bằng lệnh thủ tục SetColor. 

Ví dụ: 

FiIElipse(100, 100,20,40); 
42. Thủ tục FILLPOLY (Graph Unit) 
Cũ pháp: 

FiIPoly(n.A); 

Trong đó n là biến dạng Word, A là một mảng. Thủ tục FiIIPoly tô màu cho đa 
giác gồm n đỉnh có các tọa độ đỉnh được chứa trong mảng A. 

43. Thủ tục FELOODFILL (Graph Unit) 

Cá pháp: 

FloodFill(x,y,mau); 

Trong đó biến x, y dạng Integer, biến mau có đạng Word. Thủ tục này dùng để 
tô một vùng khép kín trên màn hình đồ họa với màu vẽ và mẫu tô hiện hành. Tọa độ 
x, y phải được nằm trong vùng được tô. 

Ví dụ: 

FloodFill(100,100,Red); 
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44. Thủ tục FLUSH 
Cú pháp: 
Flush(F}; 
Trong đó F là biến tệp. Thủ tục Flush đẩy ra đĩa tất cả các kết quả đang nằm trong 
vùng đệm của tệp F. 
45. Hàm FRAC 
Cú pháp: 
Frac(x); 


Trong đó x là một số thực. Kết quả nhận được là một số thực phản ánh phần lẻ thập 
phân của x. 


Ví dụ: 
x:=12.34;y:=Frac(x): 
Writeln(y:4:2); 

Kết quả: 

0.34 

46. Thủ tục FREEMEM 

Cú pháp: 

Freemem(F.); 

Trong đó: F là biến con trỏ Pointer, ¡ dạng Integer. “Thủ tục Feemem giải phóng¿ I 
byte bộ nhớ của vùng Heap liên quan đến biến F đã được cấp phát bằng thủ tục 
GetMem. 

47. Thủ tục GETARCCOORDS (Graph Unit) 

Cú pháp: 

GetArcCoords(Var Arc Coord: ArcCoodsType) 
Thủ tục này trả về các tọa độ đã được lệnh Arc hoặc Ellipe trước đó sử dụng. 
Cấu trúc của dạng dữ liệu ArcCoodsType như sau: 
Type 
ArcCoordsType=Record 
X.,y: Integer; 
XStart,Y Start: [nteger; 
XEnd,YEnd: Integer; 
EỨnd. 
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48. Thủ tục GETASPECTRATIO (Graph Unit 
Cu pháp: 
Getaspectratio(X.Y); 
Trong đó X, Y là các biến dạng Word. Hàm trên trả về cho biến X và Y độ phân 
giải của màn hình đồ họa theo chiều ngang (X) và chiều đọc (Y). Các bạn có thể 
tính được tỉ lệ của màn hình nhờ hai giá trị ñầy. 
49. Thủ tục GETBKCOLOR (Graph Unit) 
Cú pháp: 
GetBkColor; 
Kết quả là dữ liệu đạng Word cho biết màu của nền hiện hành. 
50. Thủ tục GETCOLOR (Graph Unit) 
Cú pháp: 
GetColor; 
Kết quả là đữ liệu dạng Word cho biết màu của nét vẽ hiện hành. 
Š1. Thủ tục GETDATTE (Dos Unit) 
Cú pháp: 
GetDate(ngay,tháng,nam.,ngay_ tuan); 
Hàm đưa vào các biến ngay, thang, nam, ngay _tuan dữ liệu dạng Word tương 
ứng với ngày, tháng, năm và ngày trong tuần của hệ thống. 
52. Thủ tục GETDEFAULTPALETTE (Graph Unit) 
Củ pháp: 
GetDefaultPalette(Pa); 
Trong đó Pa là biến có dạng PaleiteType. Hàm đưa vào biến Pa bảng màu mặc định 
cho trình điều khiển đồ họa hiện hành. 
Cấu trúc của PaletteType như sau: 
Type 
PaletteType=Record 
Size;Byte; 
Colors: Array[0..MaxColor] of Shortinr; 
End. 
53. Thủ tục GETDIR 
Cú pháp: 
GetDir(d,s}; 
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Trong đó d dạng Byte và biến s dạng String. Hàm GetDir lấy thư mục cho ổ đĩa 
được chỉ định trong đ và đưa vào biến s. Nếu d là 0 thì sẽ lấy trong ổ đĩa mặc định. 
Ví dụ: 
Var s:String; 
Begin 
GetDir(0,s); WriteÌn(s}; 
End. 
Kết quả (ví dụ): 
CTURBO 
54. GETDRIVYERNAME (Graph Unit) 
Cú pháp: 
GetDriveName; 
Kết quả là tên của trình điều khiển đồ họa dưới đạng một chuỗi kí tự (String). 
$5. Hàm GETENV 
Cú pháp: 
GetEnv(Env); 
Trong đó Env là biến đạng String. Kết quả của hàm là đưa vào trong biến Env chuỗi 
môi trường cho biến môi trường. 
%6. Hàm GETATTR (Dos Unit) 
Cú pháp: 
GetAttr(F,thuoc _tình); 
Trong đó F là biến tệp (file) và thuoc_tỉnh là biến dạng Word. Kết quả của hàm là 
thuộc tính của tệp F. Trước khi thực hiện thủ tục này, biến F đã được gắn từ một tệp 
nhưng không được mở tệp. 
Ví dụ: 
Var thuoc_tỉnh: Word; 
F:Fie; 
Begin 
Assign(Œ,VIDU.PAS): 
GetAttr(F,thuoc _ tình); 
Writeln(Thuoc tình: '/Thuoc_ tỉnh); 
End. 
Kết quả (ví dụ): 
Thuoc tình: 32 
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57. Thủ tục GETEILLPATTERN (Graph Unit) 
Cũ pháp: 
GetFillPattern(FP); 
Trong đó FP là biến dạng FillPatternType. Hàm trên trả về trong biến FP định nghĩa 
của mẫu tô hiện hành, Cấu trúc của FillPatternType như sau: 
Type 
EillPatternType=Array[ 1..8] of Byte: 
58. Thủ tục GETFILLSETTíNG (Graph Unit) 
Cú pháp: 
GetFillSetrings(FS); 
Trong đó biến FS có dạng FillSettingsType. Hàm trên trả về cho biến FS màu và 
mẫu tô hiện hành. Cấu trúc của FillSettingsType như sau: 
Type 
EillSetingsType=Record; 
Pattern: Word; 
Color; Word; 
End. 
59. Thủ tục GETFTIME (Dos Unit) 
Cú pháp: 
GetFTime(F,tg); 
Trong đó F là biến tệp, rg là biến dạng Longim.. Hàm trên đưa vào biến tg thời gian 
của tệp F. Tệp F phải được gán và được mở trước khí dùng thủ tục này. 
Ví dụ: 
Var 
tg: Longint; 
f: Fe; 
Begin 
Assign(F,'VIDU.PAS); 
Reset();GetFTime(ftg,); 
Writeln(tg);Close(#); 
End. 


60. Hàm GETGRAPHMODE (Graph Unit) 
Cú pháp: : 

GetGraphMode; 
Hàm trả về kiểu đồ họa là dữ liệu dạng Integer. 
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61. Thủ tục GETIMAGE (Graph Unit) 

Cú pháp: 

Getlmage(xI,yl,x2,y2,B): 

Trong đó các biến x1, y2, x2, y2 dạng Integer, biến B dạng Bitmap. Thủ tục trên 
cất hình chữ nhật (x1, y1, x2, y2) vào biến B để khi cần có thể gọi ra màn hình với 
nội dung đã cất nhưng ở các tọa độ khác nhau (sử dụng làm chuyển động các hình 
ảnh trong trò chơi hoặc trong phim hoạt hình). 

62. Thú tục GETLINESETTINGS (Graph Unit) 

Cú pháp- 

GetLineSettings(LS); 
Trong đó L§ có dạng LineSettingsType. Thủ tục trên đưa vào trong biến L§ giá trị 
hiện hành của đường, mẫu, bề dày của hình ảnh. Cấu trúc của LineSettingsType 
như sau: 
Type 
LineSettingsType=Record 
LineStyle: Word; 
Pattern: Word; 
Thickness: Word; 
End. 
63. Hàm GETMAXCOLOR (Graph Unit) 
Cú pháp: 
GetMaxCöolor; 

Kết quả là giá trị cao nhất cho màu trong bảng màu hiện hành thể hiện bằng dữ 
liệu dạng Word. 

64. Hàm GETMAXMODE (Graph Unit) 

Cú pháp: 

GetMaxMode; 

Kết quả là kiểu đồ họa có độ phân giải cao nhất của kiếu màn hình đang dùng. 

6S. Hàm GETMAXX (Graph Unit) 

Cú pháp: 

GetMaxX, 


Hàm cho giá trị là tọa độ cao nhất theo chiều ngang của kiểu đồ họa hiện hành. 
Giá trị nhận được có kiểu dữ liệu dạng Integcr. 
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66. Hàm GETMAXY (Graph Unit) 
Cú pháp: 
GetMaxY; 
Hàầm cho giá trị là tọa độ cao nhất theo chiềuđọc của kiểu đồ họa hiện hành. Giá 
trị nhận được có kiểu đữ liệu dạng Integer. 
67. Thủ tục GETMEM 
Củ pháp: .. 
GetMem(P,I); 
Trong đó biến P dạng Pointer và biến ¡ dạng Integer. Thủ tục trên cấp phát một 
vùng bộ nhớ ¡ byte và lưu địa chỉ đầu của vùng nhớ này vào biến con trỏ P, 
68. Hàm GETMODENAME (Graph Unit) 
Cú pháp: 
GetModeName(Mode); 
Trong đó Mode là biến dạng Word. Hàm cho kết quả là một chuỗi (dạng ‹ của 
hàm là String) mô tả kiểu đồ họa ứng với mode đồ họa khai báo trong hàm. 
69. Thủ tục GETMODERANGE (Graph Unit) 
Cú pháp: 
GetModeRange(dh,thap,cao); 
Trong đó các biến dh, thap, cao có dạng Integer. Thủ tục đưa vào biến thap kiểu 
phân giải thấp nhất và biến cao kiểu phân giải cao nhất ứng với kiểu đồ họa dh. 
70. Thủ tục GETPALETTE (Graph Unit) 
Cú pháp: 
GetPalette(P); 
Trong đó P có đạng PaletteType. Thủ tục đưa vào biến P bảng màu hiện hành. Cấu 
trúc của PaletteType như sau: 
Const 
MaxColors=l 5, 
Type 
PaletteType=Record 
Size:Byte; 
Colors: Array[0..MaxColors] of Shortint; 
End; 
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71. Hàm GETPALETTESIZE (Graph Unit) 
Cú pháp: 
GetPaletteSize; 
Hàm trả về số liệu lớn nhất của các bảng màu mà kiểu đồ họa hiện hành có thể 
cung cấp. Hàm có dữ liệu dạng Word. 
72. Hàm GETPIXEL (Graph Unit) 
Cú pháp: 
GetPixel(x,y); 
Trong đó x, y đạng Integer. Hàm trả về màu của điểm ảnh tại điểm (x, yì). 
73. Thủ tục GETTEXTSETTINGS (Graph Unit) 
Cú pháp: 
GetTexiSetings(VB); 


Trong đó VB có dạng GetTextSettingsType. Thủ tục đưa vào biến VB thiết kế văn 
bản hiện hành. Cấu trúc của GetTextSettingsType như sau: 


Type 
GetTextSetringsType=Reeord 
Font: Word; 
Direction: Word; 
Charsize: Word; 
Horiz: Word; 
Vert: Word; 
End; 
74. Thủ tục GETTIME (Dos Unit) 
Cú pháp- 


GctTime(Gio,Phut,Giay,PT_ giay); 
Trong đó các biến Gio, PhuI, Giay, PT_ giay là các biến dạng Word. Thủ tục GetTime 
đưa vào các biến trên tương ứng các giá trị về giờ, phút, giây và phần trăm giây của 
hệ thống. 
75. Thú tục GETVIEWSETTINGS (Graph Unit) 
Cú pháp: 
GetViewSetungs(CS); 


Trong đó CS có đạng ViewPortType. Thủ tục trên đưa vào trong biến VP thiết kế 
của cửa sổ hiện hành. Cấu trúc của ViewPortType như sau: 
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Type 
ViewPortTime=Record: 
xI,y1,x2,y2:Integer; 
Clip: Boolean; 
End; 
76. Hàm GETX (Graph Unit) 
Củ pháp: 
GetX: 
Hàm GetX đưa ra giá trị dạng Integer là tọa độ ngang của vị trí hiện hành. 
77. Hàm GETY (Graph UniÐ) 
Cá pháp: 
GetY; 
Hàm GetY đưa ra giá trị dạng Integer là tọa độ dọc của vị trí hiện hành. 
78. Thủ tục GOTOXY (Dos Unit) 
Cú pháp: 
GotoXY(x,y} 
Trong đó x, y là dữ liệu dạng Integer. Thủ tục này đưa con trỏ về vị trí (x, y) trên 
- màn hình). 
79. Thủ tục GRAPHDEFAULT (Graph Unit) 
Cú pháp: 
GraphDefault; 
Thủ tục này thiết lập các giá trị ngầm định cho chế độ đồ họa. 
80. Hàm GRAPHERRORMSG (Graph Unit) 
Cú pháp: 
GraphErrorMSG(<ma>); 
Trong đó <ma> có dạng Integer. Hàm này cho kết quả dạng Integer thông báo lỗi 
ứng với <ma>. 
81. Hàm GRAPHRESULT (Graph Unit) 
Cú pháp: 
GraphResult; 
Hàm cho giá trị dạng Integer là mã lỗi của thủ tục đồ họa sau cùng. 
82. Thủ tục HALT 
Cú pháp: 
Halt; 
Dùng để kết thúc chương trình. 
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83. Hàm HI 
Cú pháp: 
HQ); 
Trong đó ¡ có dạng Integer. Kết quả của hàm dạng byte là Byte cao trong Số nguyên i. 
84. Thủ tục HIGHVIDEO (Crt Unit) 
Cú pháp: 
HighVideo; 
Cho phép hiển thị màn hình với độ chói cao. 
85, Hàm IMAGESIZE (Graph Unit) 
Cú pháp: 
ImageSize(z1,y1,x2,y2); 
Trong đó: x1, yl, x2, y2 có dạng Integer. Hàm cho kết quả là số Byte cần thiết cất 
giữ trong Bitmap của phần màn hình được xác định bởi tọa độ (x1, yL, x2, y2). 
86. Thủ tục INC 
Cú pháp: 
Inc(x[n]); 
“Trong đó n dạng Longint. Thủ tục tăng giá trị của x lên n. Nếu không có n trong đối 
số của thủ tục thì tăng lên I. 
87. Thủ tục INITGRAPH (Graph Unit) 
Cú pháp: 
InitGraph(GraphDriver,GranphMode,Path); 
Trong đó, GraphDrive và GraphMode dạng Integer, Path dạng String. Thủ tục khởi 
tạo môi trường đồ họa theo chương trình điểu khiển GraphDriver và kiểu 
GraphMode. Nếu GraphDriver bằng 0 thì thủ tục tự động phát hiện bộ phối hợp 
màn hình và thiết lập kiểu có độ phân giải cao nhất. Thủ tục sẽ tìm các tệp .BGI 
theo đường dẫn được chỉ thị bởi Path. 
Vị dụ: 
Khởi động chế độ đồ họa khi các tệp .BGI nằm trong thư mục CATURBONGI: 
Var 
gd.gm: Integer; 
s:String; 


gd:=0; 
s:=C:TURBONGT, 

InitGraph(gd,gm.s); 
End. 
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Các bạn có thể khởi động chế độ đồ họa trực tiếp như sau: 
InitGraph(0,gm.'C:TURBOXBGT'); 

88. Hàm INSERT 

Cá pháp: 
Insert(s1,s2,n); 


Trong đó s1 và s2 dạng String, n dạng Integer. Hàm Insert chèn chuỗi s1 vào chuỗi 
S2 từ vị trí n. ụ 


Ví đụ: 
Insert(hòa','Cộng xã',6); 
Kết quả nhận được: 
Cộng hòa xã 
89. Thủ tục INSLINE (Crt Unit) 
Củ pháp: 
InsLine; 
Thủ tục InsLine chèn dòng trống vào vị trí hiên hành của con trỏ trên màn hình. 
90. Hàm INT 
Cú pháp: 
Int(x); 
Trong đó x là số thực. Hàm cho kết quả là một số thực là phần nguyên của x. 
Ví dụ: 
Int(13.25); 
Kết quả: 
13 
90. Hàm IORESULT 
Cú pháp: 
IOResult; 
Kết quả của hàm có đạng Word là mã lỗi khi thực hiện thao tác vào/ra. Nếu 
IOResult khác 0 thì có nghĩa là đã gặp lỗi. 
91. Thủ tục KEEP (Dos Unit) 
Củ pháp: 
Keep(ma); 
Thủ tục kết thúc chương trình nhưng vẫn giư nó trong bộ nhớ. 
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92. Hàm KeyPressed 
Củ pháp: 
KeyPresscd; 
Hàm cho kết quả là TRUE khi có một phím được ấn. 
93. Hàm LENGTH 
Cú pháp: 
Length(s); 
Trong đó s dạng String. Hàm cho kết quả dạng Integer là chiều dài của chuỗi s. 
94. Thủ tục LINE (Graph Unit). 
Cú pháp: 
Line(xI,yL,x2,y2); 
Trong đó xI, y1, x2, y2 là các giá trị đạng Integer. Thủ tục này kẻ một đường thẳng 
từ điểm (x1, y1) đến điểm (x2, y2). 
95. Thủ tục LINEREL (Graph Unit) 
Cú pháp: 
LineRel(Dx,Dy), 
Trong đó Dx, Dy có dạng Iateger. Thủ tục trên kẻ một đường thẳng từ vị trí hiện tại 
của con trỏ (ví dụ x, y) đến điểm (x + Dx, y + Dy). 
Vị dụ: 
LineRel(100,50); 
96. Thủ tục LINETO (Graph Unit) 
Cú pháp: 
LineTo(x,y); 


Trong đó x, y có đạng Integer. Thủ tục kẻ một đường thẳng từ vị trí hiện thời của 
con trỏ đến điểm (x, y). 


97. Hàm LN 
Cú pháp: 
Ln(x); 
Trong đó x có đạng Real. Hàm cho một giá trị dạng Real là logarit tự nhiên của x. 
98. Hàm LO 
Cú pháp: 
LoQ@); 
Trong đó ¡ có dạng Integer. Hàm cho giá trị dạng Byte là Byte thấp của số nguyên ¡. 


143 


99, Thủ tục LOWVIDEO 
Cú pháp: 
LowVideo; 
Thủ tục LowVideo cho độ chói thấp của màn hình. 
100. Thủ tục MARK 
Cú pháp: 
Mark(P); 


Trong đó P có dạng Pointer. Thủ tục Mark đánh đấu địa chỉ định Heap trong con 
trỏ P. 


101. Hàm MAXAVAIL 
Cú pháp: 
MaxAvail; 
Hàm cho giá trị đạng Longlmt là kích thước khối lớn nhất của vùng nhớ chưa cấp 
phát của bộ nhớ phân chia động. 
102. Hàm MEMAVAIL 
Củ pháp: 
MemAvall; 
Hàm cho giá trị dạng Longlnt là tổng số vùng nhớ chưa cấp phát của bộ nhớ 
phân chia động. 
103. Thủ tục MKDIR 
Cú pháp: 
MKDir(s); 
Trong đó s dạng String. Thủ tục MKDïr tạo một thư mục có tên chỉ định trong s. 
Ví dụ: ì 
MKDir(CTURBOXDULIEU'): 
hoặc: 
s:= 'CXTURBONDULIEU; 
MKDW(s); 
104. Thủ tục MOVE 
Cú pháp: 
Move(vl,v2,1); 


Trong đó v1, v2, ¡ có dạng Integer. Thủ tục Move chép ¡ Byte từ biến v1 sang biến v2. 
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105. Thủ tục MOVEREL (Graph Unit) 
Cú pháp: 
MoveRel(Dx.Dy); 
Trong đó Dx, Dy có dạng Integer. Thủ tục MoveRel di chuyển con trỏ đến vị trí 
cách vị trí hiện hành Dx điểm ảnh theo chiều ngang và Dy điểm ảnh theo chiều dọc. 
Ví dụ: 
MoveRel(50,100); 
106. Thủ tục MOYETO 
Cú pháp: 
MoveTo(x,y); 
Trong đó x, y có đạng Integer. Thủ tục MoveTo định vị con trỏ tại tọa độ (x, y). 
Ví đụ: 
MoveTo(50,100); 
hoặc: 
x:=50, y:=100; 
MoveTo(x,y); 
107. Thủ tục NEW 
Cú pháp: 
New(P); 
Trong đó P là biến con trỏ. Thủ tục New cấp phát vùng Heap cho biến con trỏ. 
108. Thủ tục NORMVIDEO (Crt Unit) 
Cú pháp: 
NormVideo; 
Khôi phục thuộc tính màn hình mặc định theo các thuộc tính đã có ở vị trí con 
trỏ khi thực hiện chương trình. 
109. Thủ tục NOSOUND 
Cú pháp: 
NoSound; 
Dùng để tắt âm thanh đã được tạo ra bởi thủ tục Sound. 
110. Hàm ODD 
Cú pháp: 
Odd(); 
Trong đó ¡ có dạng Integer. Hầm cho giá trị True khi ¡ lẻ và cho giá trị False khi ¡ chấn. 


145 


111. Hàm ORD 
Cú pháp: 
Ord(s), 
Hàm cho số thứ tự của s trong kiểu vô hướng đếm được. Thứ tự được đánh số 
từ 0 cho đến n-1 (n là số phần tử). 
Ví dụ: 
Type 
ds=(MOT,HAI,BA,BON); 
Var 
h:ds; 
Begin 
'Writeln(Ord(HAI):2); 
End. 
Kết quả nhận được: 
1 
' 112. Thủ tục OUTTEXT (Graph Unit) 
Cú pháp: 
OutText(s); 
Hiển thị tại vị trí con trỏ chuỗi s theo các tham số về phông chữ, kích thước... 
được thiết lập bởi SetTextStyle và được thiết lập bởi SetColor, 
113. Thủ tục OUTTEXTXY (Graph Unit) 
Cá pháp: 
OutTextXY@,y,s); 
Trong đó x, y dạng Integer. Hiển thị chuỗi s tại tọa độ (x, y) theo các tham số đã 
được thiết lập bởi các hàm và thủ tục liên quan. 
Ví dụ: 
OutTextXY(100,100,"Nho Hen); 
114. Hàm PI 
Cũ pháp: 
ĐI; 
Cho kết quả là hàm số Pi. 
115. Thủ tục PIESLINE (Graph Unit) 
Cú pháp: 
PiesLine(x,y,gd,gc,r); 
Trong đó x, y dạng Integer các giá trị gd, gc, r dạng Word. Thủ tục PiesLine vẽ một 
hình quạt có tâm là (x, y), bán kính r và được vẽ từ góc đầu gd đến góc cuối Ục. 
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116. Hàm POS 
Cú pháp: 
Pos(sL,s2); 
Cho kết quả là vị trí của chuỗi sI trong chuỗi s2. Nếu s1 không nằm trong s2 thỉ 
hàm cho giá trị 0. 
Ví dụ: 
PosChoa',"Cong hoa); 
sẽ cho kết quả: 
6 
117. Hàm PRED 
Cú pháp: 
Pred(s); 
Cho kết quả đạng Integer là vị trí trước của s trong kiểu dữ liệu vô hướng 
đếm được. ` 
118. Thủ tục PUTIMAGE (Graph Unit) 
Cú pháp: ` 
PutImage(x,y.B,h0; 
Trong đó x, y dạng Integer, B là biến Bitmap, ht chỉ định cách hiển thị. Thủ tục này 
cho hiển thị nội dung của biến Bitmap B bắt đầu tại điểm (x, y). Cách hiển thị nhận 
các giá trị sau: 


CopyPut 


XORPut 
ORPut 
ANDPut 
NOTPut 





Ví dụ: 
Putimage(50,100,B,CopyPut); 
Trong đó biến Bitmap B đã được định nghĩa bởi thủ tục GetImange. 
119. Thú tục PUTPIXEL (Graph Unit) 
Cú pháp: 
PutPixel(x,y,mau); 
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Trong đó x, y dạng Integer, mau quy định mã màu (hoặc giá trị số). Thủ tục 
PutPixel vẽ một điểm tại tọa độ (x, y) với màu do biến mau quy định. 
Ví dụ: 
PutPixel(100,100,Red); 
120. Hàm RANDOM 
Cú pháp: 
Random(); 
Random; 
Kết quả là một số ngẫu nhiên do Turbo Pascal tạo ra. Nếu bạn chỉ thị: 
Random(); 


Trong đó ¡ là một số dạng Word thì tạo ra một số nguyên từ 0 đến i-]. Nếu bạn 
chỉ thị: 


Random; 
(không có đối số) thì kết quả là một số thực không âm và nhỏ hơn I. 
Ví dụ: 
Random(10); 
Kết quả nhận được là một số nguyên ngẫu nhiên từ Ö đến 9. 
121. Thủ tục READ và READLN 
Cú pháp: 
Read(<biến>); 
ReadIn(<biến>); 
Đọc số liệu được nhập từ bàn phím hay từ tệp dữ liệu. 
122. Hàm READKEY 
Củ pháp: 
ReadKey; 
Kết quả có dạng Char. Hàm ReadKey dùng để đọc một kí tự từ bàn phím. Ñếu 
kết quả bằng O nghĩa là đã ấn một phím đặc biệt như Ctrl, End... 
123. Thủ tục RECTANGLE 
Cũ pháp: 
Rectangle(x1,y1,x2,y2); 


Trong đó xI, y1, x2, y2 là các giá trị dạng Integer. Thủ tục trên dùng để kẻ một 
hình chữ nhật được xác định bởi góc trên bên trái là (x1, y]) và góc dưới bên phải 
là (x2, y2). 
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Ví dụ: 
Rectangle(50,70,100,200); 
124. Hàm REGISTERBGIDRIVER (Graph Unit) 
Cú pháp: 
RegisterBGITriver(D); 
Trong đó D có dạng Pointer. Kết quả của hàm là một giá trị Integer dùng để nạp tệp 
chứa chương trình điều khiển .BGI và đăng kí chương trình điêu khiến với hệ đồ 
họa. D là con trỏ đến vị trí của chương trình điều khiển .BGI. Nếu có lỗi thì hàm trả 
về giá trị âm, còn ngược lại thì hàm trả vẻ số hiệu chương trình điều khiển đã gắn. 
125. Hàm REGISTERBGIEONT (Graph Unit) 
Cá pháp: 
RegisterBGIFont(font); 
Trong đó font dạng Pointer. Kết quả của hàm dạng Integer dùng nạp phông .BGI và 
đăng kí phông với hệ đồ họa. Nếu có lỗi thì hàm cho giá trị âm. Ngược lại, hàm cho 
giá trị là số hiệu phông đã đăng kí. 
126. Thủ tục RELEASE 
Cá pháp: 
Release(P); 
Trong đó P là biến có dạng Pointer. Hàm giải tỏa vùng nhớ Heap đã cấp phát tính từ 
Mark gần nhất trước đó. P cất giữ địa chỉ của đỉnh Heap. 
127. Thủ tục RENAME 
Cú pháp: 
Rename(F,s); 
Trong đó F là biến dạng File, s có đạng String. Thủ tục Rename đổi tên tệp F thành s. 
Ví dụ: : 
Var 
F:Fue; 
S;Sting; 
Đcgin 
Assing(f'VIDU.PAS); 
RenameŒ,LUU.PAS'; 
End. 
Chương trình trên đổi tệp VIDU.PAS thành tệp mới có tên là LUU.PAS. 
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128. Thủ tục RESET 
Cú pháp: 
Reset(); 
Trong đó f là biến File. Thủ tục Reset dùng để mở tệp có biến tệp là f và chỉ đọc. 
129. Thủ tục RESTORECRTMODE (Graph Unit) 
Cú pháp: 
RestoreCRTmode, 
Dùng để khôi phục kiểu làm việc của màn hình trước khi khởi tạo chế độ đỏ họa. 
130. Thủ tục REWTITE 
Cú pháp: 
Rewrite(f.[:1]; 
“Trong đó f là biến tệp và ì có dạng Integer. Thủ tục này chuẩn bị tệp để ghi. Nếu tệp 
này chưa tồn tại thì Turbo Pascal sẽ tạo ra. Nếu là tệp không kiểu thì ¡ sẽ xác định 
chiều dài của một bản ghi. 
131. Thủ tục RMDIR (Dos Unit) 
Củ pháp: 
RmDir(); 
Trong đó s có dạng String. Thủ tục này dùng để hủy thư mục được chỉ định trong s. 
132. Hàm ROUND 
Cú pháp: 
Round(x); 


Trong đó x có dạng Real. Hàm Round dùng để làm tròn x và kết quả nhận được có 
dạng Longlnt, 
Vĩ dụ. 
Round(12.52); 
Kết quả: 
13 
và kết quả của hàm: 
Round(13.3l}; 
là: 
12 


133. Thủ tục SECTOR (Graph Unit) 
Cú pháp: 
Sector(x,y,pd,sc.n,4); 
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Trong đó x, y có dạng Integer, gd, øc, n, d dạng Word. Thủ tục Sector dùng để vẽ 
một cung tròn có các tham số như sau: 
+ Tâm là (x, ÿy). 
+ Bán kính ngang là n. 
+ Bán kính dọc là d. 
+ Đi từ góc gd. 
+ Kết thúc ở góc gc. 
Ví dụ: 
Sector(100,100,0. L80,40,60); 
134. Thủ tục SEEK 
Cá pháp: 
Seek(F,P), 
Trong đó F là biến tệp (file) và P có dạng Integer. Thủ tục này dùng để di chuyển 
con trỏ tệp đến điểm đầu của bản ghi thứ P trong tệp có biến tệp F. 
Ví dụ: 
AssignŒ.,VD.TẤXT); 
S%eek(F,10); 
135. Thủ tục SEEKEOF 
Cú pháp: 
SeckEofŒ); 
Trong đó F là biến tệp. Kết quả có dạng Boolean. Hàm cho giá trị True nếu con trỏ 
ở vị trí cuối tệp, ngược lại cho giá trị False. Trước khi kiểm tra đấu hiệu kết thúc 
tệp, hàm SeeEof nhảy qua khoảng trống và Tab (khác với hàm Eof ở điểm này). 
136. Thủ tục SEEKEOLN 
Cú pháp: 
SeekEoln(ŒF); 
Trong đó F là biến tệp. Hàm này cho giá trị True nếu con tró ở vị trí cuối dòng, 
ngược lại cho giá trị False. 
137. Hàm SEG 
Cú pháp: 
Seg(<biến>); 
Seg(<Procedure> hay <Function>); 
Kết quả của hàm có dạng Word là giá trị của biến, thủ tục hay hàm trong 
chương trình. 
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138. Thủ tục SETACTIVEPAGE (Graph Unit) 
Cú pháp: 
SetActivePage(tr); 
Trong đó tr có đạng Word. Thủ tục này dùng để chọn màn hình đồ họa làm trang 
hoạt động. 
139. Thủ tục SETALLPALETTE (Graph Unit) 
Cú pháp: 
SetAlIPalette(Pa); 
Trong đó Pa là biến Palette. Thủ tục này thay đổi bảng màu theo định nghĩa trong 
Palette. 
140. Thủ tục SETASPECTRATIO (Graph Unit) 
Cú pháp: 
SetAspectRatio(x,y); 
Trong đó x, y có dạng Word. Thủ tục dùng để hiển thị đồ họa theo tỉ số x chia 
cho y. 
141. Thủ tục SETBKCOLOR (Graph Unit) 
Cú pháp: 
S$etBkColor(ma); 
Trong đó ma là mã màu (hoặc giá trị số) có dạng Word. Thủ tục này dùng để thiết 
lập màu nền cho chế độ đồ họa theo bảng màu hiện hành. 
Ví dụ: 
S%etBkColor(Blue); 
142. Thủ tục SETDATE (Dos Unit) 
Cá pháp: 
%tDate(ngay,thang,nam); 
Trong đó, ngay, thang, nam có dạng Word. Thủ tục này dùng để thiết lập lại 
đồng hồ hệ thống theo ngày, tháng, năm truyền qua tham biến tương ứng trong đối 
số của hàm. 
143. Thủ tục SETFETTR (Dos Unit) 
Cú pháp: 
Setattr(ŒF,AU; 
Trong đó F là biến tệp (file) và At có dạng Word. Thủ tục này lập thuộc tính của 
tệp F thành AI. Tệp F được gán nhưng không được mở trước khi dùng thủ tục này. 
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144. Thủ tục SETFILLPATTERN (Graph Unit) 
Cú pháp: 
SetFillPattern(Pa,Color); 
Trong đó Pa có dạng FillPatternType, Color có dạng Word. Thủ tục dùng để thiết 
lập mẫu tô do người dùng định nghĩa. 
145. Thủ tục SETFILLSTYPE (Graph Unit) 
Cá pháp: 
SetFiIStyle(Pattern,Color); 
Thủ tục này ấn định mẫu tô của màu tô. 
146. Thủ tục SETFTIME (Dos Unit) 
Cú pháp: 
SetFTime(F,Time); 
Trong đó F là biến tệp, Time có đạng Longlnt. Thủ tục này dùng để thiết lập thời 
gian cho tệp F theo giá trị trong Time. 
147. Thủ tục SETGRAPHBUFSIZE (Graph Unit) 
Cú pháp: 
SetGraphBufSize(BuÐ; 
Trong đó Buf dạng Word. Thủ tục này dùng để ấn định kích cỡ vùng đệm đồ họa. 
148. Thủ tục SETGRAPHMODE (Graph Unit) 
Cú pháp: 
SetGraphMode(mode); 
Trong đó mode có dạng Integer. Dùng để thiết lập kiểu đồ họa hiên hành. 
149. Thú tục SETINTVEC (Dos Unit) , 
Cú phán: 
SetIntVec(Int,Vec); 
Trong đó Int dạng Byte và Vec dạng Pointer. Thủ tục này dùng để cất giữ véctơ 
ngất số Int vào địa chỉ Vec. 
150. Thủ tục SETLINESTYLE (Graph Unit) 
Cú pháp: 
SetLineStyle(dạng,mẫu,bề dày); 
Trong đó các giá trị: dạng, mẫu, bẻ dày có dạng Word. Thủ tục này ấn định dạng, 
mẫu, bề dày của đường vẽ. 
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151. Thủ tục SETPALETTE (Graph Unit) 
Củ pháp: 
SetPalette(mau I ,mau2); 
Trong đó maul, mau2 có dạng Word. Thủ tục thay chỉ số maul bằng mau2 trong 
bảng màu. 
152. Thủ tục SETRGBPalette (Graph Unit) 
Củ pháp- 
SetGRBPalette(maul, Mã màu đỏ, Mã màu xanh, Mã màu lục); 
Màu có chỉ số maul trong bảng màu được thay bằng các màu đỏ, xanh, lục. 
153. Thủ tục SETTEXTBUF 
Cú pháp: 
SetTextBuf(,BuÐ; 
SetTextBuf(f,Buf,kU; 
Trong đó f là biến tệp, kt có dạng Word. Thủ tục dùng để gán tệp văn bản f vào 
vùng đệm của Buffer. Kích thước mặc định của vùng đệm sẽ bị thay đổi nếu có chỉ 
thị kt (dạng hai). 
154. Thú tục SETTEXTJUSTIFY (Graph Unit) 
Cú pháp: 
SetTextJustify(Horiz,Vert); 
Xác định vị trí hiển thị văn bản trong màn hình đồ họa. 
155. Thú tục SETTEXTSTYLE (Graph Unit) 
Củ pháp: 
SerTextStyle(phông,chiều,kích_ thước); 
Dùng để thiết lập phông chữ, chiều hiển thị (O=ngang, !=dọc và kích thước của 
chữ trong màn hình đồ họa). 
156. Thủ tục SETTLME (Dos Unif) 
Cú pháp: 
S%etTime(giờ,phút,giây,PT_ giây); 
Các tham số của thủ tục có dạng Word. Thủ tục dùng để thiết lập thời gian hệ 
thống bao gồm giờ, phút, giây, và phần trăm giây. 
157. Thủ tục SETUSERCHARSIZE (Graph Unit) 
Cú pháp: 
%etUserCharSize(xI1,x2.y1.y2); 
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Các tham số của thủ tục có dạng Word. Thủ tục này dùng để thay đổi tỉ lệ hiển 
thị của văn bản trong chế độ đồ họa theo chiều rộng và chiều cao. 


Ví dụ: 
S%etUserCharSize(I 3,1,2); 
___ Kết quả là chiều rộng bằng 1/3 bể rộng bình tHƯỜNg và chiều cao bằng 1/2 chiều 
cao bình thường. 
158. Thủ tục SETXIEWPORT (Graph Unit) 
Cú pháp: : 
%tViewPort(x1,yl,x2,y2,Clip); 
Trong đó x1, y1, x2, y2 có dạng Integer, Clip nhận hai giá trị ClipON và CHpOFF. 
“Thủ tục chọn hình chữ nhật có đỉnh trên bên trái là (x1, y1) và tọa độ đỉnh dưới bên 
phải là (x2, y2) làm cửa sổ làm việc. Tọa độ của các điểm tuân theo cửa số mới này. 
Nếu chọn ClipOn thì cho phép vẽ các điểm ra ngoài cửa sổ, ngược lại thì các điểm 
chỉ được vẽ bên trong cửa sổ. 
Vi dụ: 
SetViewPort(100,50,200,300,C1ipOn); 
159. Thủ tục SETVISUALPAGE (Graph Unit) 
Cá pháp: 4 
S%etVisualPage(tr); 
Trong đó tr có đạng Word. Thủ tục chọn trang đồ thị để _ thị lên màn hình. 
160. Thủ tục SETWRITEMODE (Graph Unit) 
Cú pháp: 
SetWriteMode(mode); 
Chọn một trong hai kiểu đường: CopyPut (0) hoặc XORPut (1). 
161. Hàm SIN 
Củ pháp: 
Sin(x) 
Hàm cho giá trị Sin(x). 
162. Hàm SIZEOE 
Cú pháp: - 
SizeOf(<biểu thức>); 


Hàm cho giá trị dạng Word là số Byte của biến hay kiểu đữ liệu được ghi trong 
<biểu thức>, 
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163. Thủ tục SOUND 
Cú pháp: 
Sound(<bt số>); 
Phát ra âm thanh có tần số là <bt số>. 
Ví dụ: 
Sound(300); 
164. Hàm SPTR 
Củ pháp: 
SẰptr; 
Hàm trả về giá trị hiện hành của thanh ghi S. 
165. Hàm SQR 
Cú pháp: 
Sqr(x); 
Hàm cho giá trị bình phương của x. Nếu x dạng Real thì kết quả của hàm dạng 
Real. Nếu x dạng Integer thì kết quả nhận được cũng có dạng Integer. 
166. Hàm SQRT 
Cú pháp: 
Sqrt(x); 
Hàm cho kết quả là căn bậc hai của x. Trong đó x có thể là số nguyên hoặc số 
thực nhưng kết quả của hàm luôn là số thực. 
167. Hàm SSEG 
Cú pháp: 
SSeg; 
Hàm cho giá trị của thanh ghi SS. 
168. Thủ tục STR 
Cú pháp: 
Str(i.[:n],s); 
Str(r.[:n:[tp],s]; 
Hàm đổi một số nguyên hay số thực thành chuỗi ký tự (dạng số) và đưa vào biến 
s. Nếu là số nguyên ¡ (dạng 1) thì bạn có thể chỉ thị thêm chiều dài của chuỗi n. 


Nếu là số thực r (dạng 2) thì ngoài việc chỉ thị chiều dài của chuỗi n, bạn có thể chỉ 
thị số chữ số thập phân tp. 
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169. Hàm SUCC 
Cú pháp: 
Succ(S); 
Hàm trả về giá trị tiếp theo của S trong kiểu vô hướng đếm được. 
170. Hàm SWAP 
Cú pháp: 
Swap(): 
Trong đó ¡ có dạng Integer. Hàm Swap hoán chuyển vị trí Byte thấp và Byte cao 
trong i. 
171. Hàm SWAPYECTORS (Dos Unit) 
Cú pháp: 
3wapVectors; 
Hàm thay đổi giá trị hiện hành của bảng Vector ngắt bằng báng đã được cất giữ 
trước khi bắt đầu thực hiện chương trình. 
172. Thú tục TEXTBACKGROUND (Crt Unit) 
Cú pháp: 
TexiBackGround(<màui>); 
Thay đổi màu nền bằng màu chi ra trong <mau>. 
173. Thú tục TEXTCOLOR (Crt Unit) 
Cú pháp: 
TextColor(<màu>): 
Trong đó <màu> có dạng Word. Thủ tục dùng để thay đổi màu của ký tự bằng màu 
chỉ ra trong <màu>. 
174. Hàm TEXTHEIGHT (Graph Unit) 
Củ pháp: 
TextHeight(s); 
Trong đó s có dạng Sưing. Kết quả của hàm có đang Word là chiều cao (số Pixel) 
của s. 
175. Thủ tục TEXTMODE (Crt Unit) 
Cú pháp: 
TextMode(mode); 


Thủ tục này dùng để chọn Mode của văn bản. 


176. Hàm TRUNC 
Cú pháp: 
Trunc(x); 

Kết quả là phần nguyên của số thực x có dạng dữ liệu là số nguyên. 

Ví dụ: 

Trunc(12.76); 

Kết quả: 

12 
177. Thủ tục TRUNCATE 
Cũ pháp: 
Truncate(f); 
Trong đó f là biến tệp. Thủ tục này cắt bỏ phần dữ liệu từ vị trí hiện thời của con trỏ 
trong tệp £. 
178. Hàm UPCASE 
Cú pháp: 
Upcase(c); 

Kết quả là giá trị hoa của c (dạng char) nếu c là chữ thường. 

179. Thủ tục VAL 

Cú pháp: 

Val(s,r,code); 

Thủ tục Vai đổi chuỗi s thành số và đưa vào biến r. Nếu việc đổi thành công thì 
biến code (dạng Integer) được gần giá trị 0. Nếu việc đối không thành công thì biến 
code được gán một giá trị là vị trí của kí tự trong biến s đã gây lỗi (ví dụ như kí tự 
không phải dạng số). 

189. Hàm WHERE (Crt Unit) 

Cú pháp: 

'Where; 

Cho biết dòng đang chứa con trỏ trên màn hình. 

181. Thủ tục WENDOW (Crt Unit) 

Cú pháp: 

Window(x1,y1,x2,y2); 

Trơng đó các giá trị x1, yl, x2, y2 có đạng Byte. Thủ tục giới hạn màn hình làm 

việc là hình chữ nhật có đỉnh trên bên trái là (x1, y}) và đính dưới bên phải là (x2, y2). 
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Ví dụ: 
Window(10,20,50,60); 
182. Thủ tục WRITE và WRITELN 
Cú pháp: 
Write(<biểu thức>[,<tham số>]); 
Writeln(<biểu thức>{[,<tham số>]); 


Thủ tục Write đưa các giá trị của <biểu thức> ra màn hình hoặc ra tệp. Writeln 
làm việc như Write nhưng sau khi đưa giá trị ra màn hình thì có mã kết thúc dòng. 
Hay nói cách khác, sau khi đưa giá trị của <biểu thức> ra màn hình hoặc máy in thì 
con trỏ nhảy xuống dòng dưới. 


Ví đụ: 
Write(Nguyễn Tuân Thúy); 
Hoặc: ` 
'Writeln("Nguyễn Tuân Thúy'); 
Trong trường hợp thứ hai, sau khi đưa kết quả ra màn hình, con trỏ tự động nhảy 
xuống đòng dưới. 
Lệnh này còn có thể kết hợp với hàm GotoXY để định vị trí con trỏ tại một vị trí 
nào đó trên màn hình trước khi thực hiện lệnh Wirte hoặc Writeln. 
Ví dụ: 
GotoXY(100,50); 
Writeln(Tuan Thúy); 
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Phụ lục 2 


THÔNG BÁO LỖI TRONG TURBO PASCAL 


1. CÁC LỖI KHI BIÊN DỊCH CHƯƠNG TRÌNH (COMPILER ERROR) 


Mã 


{x‹Y+< 0) kì mm 


w© œ xả Ơ. 


20 
21 


1ó0 


Thông báo lỗi 
Out of memory 
Identifier Expected 
Unknown Identuifier 
Duplicate Identifier 
Syntax Error 
Error in Real constant 
Error in Integer 
String constant exceed line 
Too many nested File 
Unexpected end of file 
L¡ne too long 
Type identifier expected 
Too many open file 
Envalid filename 
File not found 
Disk full 
Invaliđ compiler Directives 
'TToo many files 
Undefined type in pointer 
definuion 
Variable indentifier 


Error in Type 


Nghĩa 
Đây bộ nhớ 
Thiếu định danh (tên) 
Không hiểu định danh này 
Định danh trùng nhau (2 lần) 
Sai cú pháp 
Lỗi về hàng số thực 
Lỗi về hằng số nguyên 
Hãng chuỗi vượt quá chiều đài quy định 
Quá nhiều tập tin lồng nhau 
Chưa kết thúc tập tin 
Đồng quá dài 
Thiếu định danh kiểu 
Mở quá nhiều tập tin 
Tên tập tin không hợp lệ 
Không tìm thấy tập tin 
Đĩa đã đây 
Chỉ thị dịch không đúng 
Quá nhiều tệp tin 


Không định nghĩa kiểu cho con trỏ 


Chưa định nghĩa biến 
Lỗi về kiểu dữ liệu 


22 
23 
24 


25 
26 
27 
28 


20 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


Structure 1oo large 
Set base type out of Range 


File components may not be files 
or objects 


Invalid string length 
Type mismatch 
Invalid subrange base type 


Lower bound greater than Upper 
bound 


Ordinal Type expected 
Integer constant expected 
Constant expected 

Integer or real constant expected 
Type identifler expected 
TInvalid functionresult Type 
Begin expected 

End expected 

I[nteger eXpression expected 
Ordinal expression expected 
Boolean expression expected 
Operand do not match operator 
Enror in eXpresstion 

HHIegal assigment 

Field Identifier expected 
Object file too large 
Undefined External 

Invalid objéct-file record 
Code segment too large 
Data segmert too large 

Do expected 

Invalid public đefinition 


Invalid Extrn definition 


Cấu trúc quá lớn 
Vượt phạm vì kiểu tập hợp 


Thành phần tập tin không thể là các tập 
tin hay các đối tượng 


Chiều dài chuỗi không đúng 
Kiểu không phù hợp 
Kiểu miền con không hợp lệ 


Giới hạn dưới lớn hơn giới hạn trên 


Thiếu kiểu thứ tự 

Thiếu hàng số nguyên 

Thiếu hằng số 

Thiếu hằng số nguyên hay số thực 
Thiếu định danh kiểu 

Kiểu kết quả của hàm không hợp lệ 
Thiếu Begin 

Thiếu End 

Thiếu biểu thức số nguyên 

Thiếu biểu thức thứ tự 

Thiếu biểu thức luận lý 

Toán hạng không phù hợp với toán tử 
Biểu thứ sai 

Lệnh gán không đúng 

Thiếu định danh trường 

Tập tin đối tượng quá lớn 

Chưa định nghĩa chương trình ngoài 
Mẫu tin đối tượng không đúng 
Vùng code segment quá lớn 

Vùng đata segment quá lớn 

Thiếu Do 

Khai báo chung không hợp lệ 

Khai báo tham chiếu không hợp lệ 
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52 
5 
54 
55 
56 


38 


s0 


60 
6l 
62 
63 


64 
65 
66 
67 
68 
69 
70 
71 
?2 
73 


74 
75 
76 
71 
78 


79 
80 
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Too many Extrn definitons 
OF expected 

Interface expected 

Invalid relocatable reference 
THEN expected 

TƠ Or DOWNTO expected 
Undefined forward 

'Too many procedure 
Invalid typecast 

Division by zero 

Invalid file type 

Can not read or write variables of 
this type 

Pointer variable expected 
String variable expected 
String eXperession expected 
Circular unit reference 

Unit name mismatch 

Unit version mismatch 
Duplicate Unit name 

Đnit file format error 
Implementation expected 


Constant and case Iupe does not 
match 


Record variable expected 
Constant out of range 

Eile variable expected 
Pointer expression expected 


Integer and Real expression 
expccted 


Label not within current block 
Label already defined 


Khái báo tham chiếu quá nhiều 
Thiếu OF 

Thiếu Interface 

Tham chiếu đến đối tượng không đúng 
Thiếu THEN 

Thiếu TO hay DOWTO 

Chưa khai báo trước 

Quá nhiều thủ tục 

Chuyển đối kiểu không hợp lệ 

Chia cho số 0 

Kiểu tập tin không hợp lệ 

Không thể đọc hoặc ghi dữ liệu kiểu 
này 

Thiếu biến con trỏ 

Thiếu biến kiểu Chuỗi kí tự 

Thiếu biểu thức Chuỗi kí tự 

Tham chiếu các uni1 vòng tròn 

Tên unit không phù hợp với tập tỉn .TPU 
Các phiên bản của unit không phù hợp 
Khai báo 2 lần tên unit 

Dạng tập tin TPU không đúng unit 
Thiếu Implementation 


Các hằng và kiểu của case không khớp 


Thiếu biến record 

Hằng vượt quá phạm vi 
Thiếu biến kiểu tập tin 
Thiếu biểu thức con trỏ 


Thiếu biểu thức con trỏ 


Nhãn không được ở ngoài khối hiên hành 
Nhãn đã được định nghĩa 


8l 


§2 
83 
84 
85 
86 
§7 
88 
89 
90 
9I 
92 
93 
94 
95 
%6 
97 
98 


99 

100 
1ØI 
102 
103 
104 
105 
106 
107 
108 
109 
110 


"1 


Undefined label in preceding 
S†atementpart 

invalid @ argurnent 

Unit expected 

”t" expected 


"n.. 


:” expected 

"," expected 

"(” expected 

")” expected 

.—n expected 

";=" expected 

“[" or "(ˆ” expected 

“}" or ”.)” expected 

“." expected 

".." expected 

'Too many variable 
Invalid or control variable 
Integer variable expected 
Eiles are not allowed here 


String length mismatch 
Invalid ordering of fields 
String constan† expccted 


Integer or Real variable expected 


Ordinal variable expected 
Inline error 

Character eXpression expected 
Too many relocation items 
Case constantout Of range 


Error in statement 


Cannot call an interrupt procedure 
Must be in 8087 mode to compile 


this 
'Target address not found 


Nhãn chưa định nghĩa trong phần trước 


Đối số của toán tử @ không hợp lệ 
Thiếu unit 

Thiếu ; 

Thiếu : 

Thiếu , 

Thiếu ( 

Thiếu ) 

Thiếu = 

Thiếu := 

Thiếu [ hoặc (. 

Thiếu ] hoặc .) 

Thiếu . 

Thiếu .. 

Quá nhiều biến 

Biến điều khiển không đúng 

Thiếu biến integer 

Không được phép sử dụng các tập tin 
ở đây 

Chiều đài chuỗi không đúng 

"Thứ tự của các trường không hợp lệ 
Thiếu hằng kiểu chuỗi 

Thiếu biến kiểu integer hay real 
Thiếu biến thứ tự 

Lệnh Inline sai 

Thiếu biểu thức kí tự 

Quá nhiều mục chuyển vị 

Các hằng trong lệnh case vượt phạm vi 
Sai trong câu lệnh 

Không thể gọi các thủ tục ngắt 
Phải biên dịch ở chế độ 8087 


Không tìm thấy địa chỉ đích 
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112 


113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 


124 
125 
126 
127 
128 
129 


130 


131 
132 
133 


134 


135 


136 
137 
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Include files are not allowed here 


NÑil expected 

Invalid qualifier 

Invalid variable reference 

Too many symbols 

Statement part too long 

Files must be Var paraIneters 
Too many conditonnal symbols 
Misplaced conditional đirective 
ENDIF directive missing, 

Error in initial conditional defines 


Header does not match previous 
definiion 


Critical đisk eTror 

Cannot evaluate this expression 
Expression incorectly terminated 
Invalid forrmat specifier 

Invalid indirect referenee 


Structured variables are not 
allowed here 


Camnot evaluate without SYSTEM 
uni1 

Cannot acces this symbol 

Invalid floating-point operation 


Cannot compile overlays to 
memory 


Procedure Or Function vartable 
expected 


Invalid procedure or function 
reference 


Cannot overlay thís unit 


Object type expected 


Các tập tin include không được phép 
ở đây 

Thiếu Nh 

Định tính không hợp lệ 

Tham chiếu biến không đúng 

Quá nhiều kí hiệu 

Phần lệnh quá đài (vượt quá 24KB) 
Tập tin phải là tham biến 

Quá nhiều kí tự điều kiện 

Chỉ thị điều kiện đặt sai vị trí 

Thiếu chỉ thị ENDIE 

Lỗi khi định nghĩa điều kiện 

Tiêu đề không phù hợp với định nghĩa 


Lỗi đĩa 

Không thể đánh giá biểu thức này 
Chấm dứt biếu thức không đúng 

Định khuôn dạng không hợp lệ 

“Tham chiếu gián tiếp không hợp lệ 
Không được sử dụng biến cấu trúc ở đây 


Không thể xác định vì không có unit 
SYSIEM 


Không thể truy xuất đến kí hiệu này 
Dấu chấm động không hợp lệ 
Không thế biên dịch phủ lấp vào bộ nhớ 


Thiếu biến thủ tục hay hàm 


Tham chiếu thủ tục hay hàm không 
hợp lệ 

Không thể phủ lấp unit này 

Thiếu kiểu objec1 


138 Local object types are not allowed Không chấp nhận kiểu object cục bộ 


139 Virtual expected Thiếu virtual 

140 Method identifier expected Thiếu định danh phương pháp 

14L Virtual constructors are not Constructor ảo không được phép 
allowed 


142 Constructor identifier expected Thiếu định danh constructor 


143. Destructor identifier expected Thiếu định danh destructor 
144 Fail only allowed within Chỉ cho phép trong constructor 
Constructors 


145 Invalidcombination ofoperator Kết hợptoán hạng và toán tử không 


and operance hợp lệ 

146 Memory reference expected Thiếu tham chiếu bộ nhớ 

147 - Cannot add or subtract relocatable Không thể thêm bớt kí tự định vị 
symbols 

148 Invalid register combination Kết hợp thanh ghi không hợp lệ 

149 286/287 instruction are notenabled Các chỉ thị 286/287 không được dùng 

150 Invalid symbol reference Tham chiếu kí hiệu không đúng 

I5! Code generation error Lỗi phần code (mã) 


2. CÁC LỖI KHI THỰC HIỆN CHƯƠNG TRÌNH (RUN-TIME ERROR) 
Lỗi Run-time 3 xẩy ra khi chương trình đang được thực hiện. Khi xẩy ra lỗi, 
Turbo Pascal hiến thị thông báo lỗi như sau: 
Run-time error NNN ai XXXX : YYYY 
Trong đó NNN là mã lỗi, còn XXXX là segment và YYYY là offset, tức địa chỉ 
xẩy ra lỗi. 
Dưới đây phân loại thành các nhóm như sau: 


Lỗi liên quan đến hệ điều hành 


2 File not found Không tìm thấy tập tin 

3 Pathnotfound Không tìm thấy đường dẫn 

4 _ Too many open files Mở quá nhiều tập tin 

3 File access denied Không truy cập được tập tin 

6 Invalid file handle Quản lí tập tin không hợp lệ 

12 Invalid file acces code Mã truy cập tập tin không hợp lệ 
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15 
16 
17 


Invalid drive number 
Cannot remove current directory 
Cannot rename across drIves 


Lỗi do nhập xuất (VƯO Error) 


100 
101 
102 
103 
104 
105 
106 


Disk read error 

Disk WTite error 

FiHe not assigned 

File not open 

File not opent for input 
File not open for output 


Invahd numeric format 


Lỗi vật lí (Critical error) 


150 
l5I 
152 
153 
154 


155 


156 
157 
158 
159 
160 
L6] 
162 
200 
201 
202 
203 
204 
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Disk is write-protected 
Unknown unit 

Diive noi ready 
Unknown command 


CRC (Cyclic Redundanas Check) 
error In đata 


Bad drive request structure 
length 


Đisk seek error 
Unknown media type 
Sector not fœund 
Printer out of paper 
Device write fault 
Device read fan]! 
Harware failure 
Division by zero 
Range check error 
Stack overflow error 
Heap overflow error 


Invalid pointer operation 


Số hiệu ổ đĩa không đúng 
Không thể xóa thư mục hiện hành 
Không thể đổi tên tập tin khác ổ đĩa 


Lỗi khi đọc đĩa 

Lỗi khi ghi vào đĩa 

Chưa gán tên tập tin 

Chưa mở tập tìn 

Chưa mở tập tin để ghi 

Chưa mở tập tin để đọc 
Khuôn dạng số không hợp lệ 


Đĩa đã dán bảo vệ chống ghi 

Không hiểu unit 

Ổ đĩa chưa sắn sàng (chưa đóng cửa) 
Không hiểu lệnh 

Lỗi ở mã kiểm tra dữ liệu 


Khoảng yêu cầu trên đĩa bị hư 


Lỗi đĩa khi tìm dữ liệu 
Không hiểu kiểu của dữ liệu 
Không tìm thấy cung từ 
Máy in không có giấy 
Thiết bị ghi bị hư 

Thiết bị đọc bị hư 

Phần cứng bị hư 

Chia cho số Ö 

Vượt quá phạm vi 

Tràn vùng Stack 

Tràn vùng Heap 

Con trỏ không hợp lệ 


205 
20 
20? 
208 
209 
210 
211 
212 
213 
214 


Fôating-point overflow 
Floating-point underflow 
Invalid floating-point operation 
Overlay manager not installed 
Overlay file read error 

Object not initialized 

Call to abstract method 

Stream 1egistration eTrOT 
Collection index out OÝ range 


Collection overflow error 


Tràn dấu chấm động 

Không đủ cho dấu chấm động 

Dấu chấm động không hợp lệ 

Chưa thiết lập chế độ quản lí phủ lấp 
Lỗi đọc tập tin phủ lấp 

Chưa khởi tạo objJect 

Gọi tới phương pháp abstracL 

Đăng ký stream sai 

Chỉ mục vượt quá phạm vi 

Lỗi tràn collection 
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Phụ lục 3 
PHẦN MỀM THIẾT KẾ ĐƯỜNG NOVA 


Phiên bản 3.5 - 91.7 MB. Dùng với AutoCAD 14 

NOVA-TDN là sản phẩm hợp tác giữa Công ty Hài Hoà và Hãng VIA NOVA 
Na Uy. 

- Các Tác giả: KS Hồ Việt Hải, KS Nguyễn Hải Phương, KS Phan Mạnh Dân, 
KS Nguyễn Thạch Hưng, KS Trần Trọng Nghĩa, KS Phạm Văn Trung. 

- Cố vấn chuyên môn: PGS-PTS Nguyễn Viết Trung, PTS Nguyễn Nhật Quang, 
Th.S Nguyễn Bá Sinh, KS Chư Quang Định, Th.5 Võ Thanh Tùng, Th.S Nguyễn 
Đức Hát. 

- Địa chỉ liên hệ: + Hà Nội : 123 Trúc Bạch, Quận Ba Đình — Tel 04.8290413 

+ TP Hồ Chí Minh: 29 Bùi Thị Xuân, Quận 1-7el 089252227. 


Sau đây giới thiệu sơ lược về cách sử dụng để bước đầu làm quen. Chi tiết xem 
thêm trong NOVA Help. 


IL. KHÁI QUÁT CHƯNG 


Phần mềm NOVA có thể giúp kỹ sư đường lên các bản vẽ bình đồ, cắt dọc, cắt 
ngang. Thiết kế đường đỏ trên cắt dọc. Tính diện tích đào đắp trên cắt ngang thiết 
kế, tính khối lượng đào đắp nên đường. 

Người kỹ sư thiết kế có thế tạo mẫu bản vẽ cắt đọc, cắt ngang theo các để mục 
mong muốn cả về tên gọi và cự ly các dòng đề mục. 


1. Vào và ra khói NOVA 


Khi vào Nova, đơn giản nhất là nhấn vào Icon NOVA trên màn hình (Öesiop), 
ra trang File mở đầu (New Fife) như Hình NI. Trang này gồm các /nenw và thanh 
công c¡\ : hư AutoCAD, có thêm một số menu tiếng Việt như Địa hình, Bình đô, 
'TD-TN (trắc đọc- trắc ngang), Phụ trợ. 

Mỗi menu trên chơ một báng chọn với nhiều tình huống lập bản vẽ. Đơn giản 
nhất là: 

- Địa hình dùng để nhập số liệu đo đạc ngoài hiện trường theo Tiêu chuẩn 
Việt Nam. 
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- Bình đô để vẽ bình đồ tự nhiên và thiết kế bình đồ. 


- TD-TN để vẽ cắt dọc, cắt ngang tự nhiên và thiết kế cất đọc, cắt ngang. 
Tính khối lượng. 


Thoát khỏi NOVA: Vào le => Evi. 
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Hình NI: New File khi vào NOVA 

2. Ghi tệp (Save File) 

- Ghỉ tệp dữ liệu: Nói chung sau khi nhập số liệu xong phần cơ bản (như-số liệu 
vẽ cắt dọc) nên Save File ngay bằng cách nhấn vào mục Ghỉ tệp trên hình N3. Đặt 
tên Eile (thí dụ #/Muc-CN ) theo đường dẫn DA D-Hoa\ Ve-NOVAX HMuc-CN. 
Tên Eile này được lưu giữ trong NOVA và trong Explorer nhưng chỉ mở lại được 
trong NOVA. 

- Ghỉ tệp bản vẽ: Nhập số liệu xong, lên các bản vẽ, tiếp tục Save File bản vẽ 


trong AutoCAD (thí dụ tên File C-Doc-HMuc). File nầy có thể mở được trong 
NOVA và trong Explorer. 


3. Mở lại File đã có 


- Mỡ lại File số liệu (như HMuc-CN) phải vào NOVA -> Vào menu Địa hình —> 
nhấn Nhập số liệu theo TCVN —> nhấn Mở tệp —> tìm tên File theo đường dẫn -> 
nhấn đúp chuột trái lên tên File sẽ mở được. 
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Cách khác: gõ nsl sau Command => Enter -> ra Nhập dữ liệu -> nhấn Mở tệp .. 

- Mở lại File bản vẽ (như C-Doc-HMuc) : mở trong NOVA và trong Explorer 
đều được. 

4. In bản vẽ 


Như in trong AutoCAD 


II. VẼ BẢN VẼ BÌNH ĐỒ, CẮT DỌC, CẮT NGANG 


A. Bản vẽ hiện trạng 
1. Vào Menu Øjø hình —> ra Bảng chọn như Hình N2 -> Nhập số liệu theo 
TCVN => ra hộp thoại Nhập dữ liệu như hình N3. Nhập số liệu vẽ cắt dọc có thể 
theo khoảng cách lẻ (hoặc cộng dồn), cao độ tự nhiên. Nếu dùng khoảng cách lẻ 
đánh dấu mục Cọc heo KC lẻ trên Hình N3. 
Cách khác: Vào NOVA, Comunand : nsÏ => Ener —> cũng ra Hình N3. 
- +32 TT 
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Định nghĩa đường đóng mdc hoặc đường mép. 
Định nghĩa các đường đắng mức. 
Nhập số bều theo TCVN 
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and . 7ï TT 


SÑ\Sta| Í đề Í[EAueCAD -|Dvaweng]l  “$.Rzds :, tri ® z4 pe 


Hình N2: Bảng chọn menu Địa hình 


2. Nhập xong nhấn ŒÙi rệp —> ra hộp thoại Søwe øs —> đặt tên File vào mục Fi/e 
name (thí dụ Hmuc-CN), tạo đường dẫn trong Sơye ¿¿ (thí dụ Dị D-Hoa\ Ve- 
NOVAXHmuc-CN). Tên File có đuôi *.ntd. Nhấn Save —> trở về Nhập dữ liệu —> 
nhấn Nháp TN (trắc ngang) —> ra hộp thoại như Hình N4. 
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Hình N3: Hộp thoại Nhập dữ liệu cắt đọc 


theo khoảng cách cộng đồn và cao độ tự nhiên 


Í ZlrxÍwc{Í Jilo.lzml.el ~l 
Nhập dữ liệu Nova-TDN - D:\Ð-Hoa-DVVeNGVAVIMuc: M.ntd 


18000 
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[” Mis theo KC ÍT CĐMia tương đối 
lốc lệo — 


_Tập mới =el> |Lseaex-sIdUens]: _= 
E——. _——: ải: 


mnand. 
Connand 


(45/4185, 


"rẻ... x5 


Hình N4: Nhập số liệu cắt ngang tự nhiên 
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3. Nhập số liệu cắt ngang theo khoảng cách ngang cộng dồn tính từ tim. Nhập 
số liệu bên trái trước, sau đến bên phải. 


Nhập xong tiếp tục Save vào tên File HMuc-CN. 


4. Vào menu Bình đồ —> Vẽ tuyến theo TCVN -> ra hộp thoại Read Data from , 
tìm tên File nhập dữ liệu theo đường dẫn D:\ D-Hoa\ HMuc-CN —> mở File ra hộp 
thoại Nhập gốc tuyến —> nhấn mục Điểm đầu —> nhấn điểm chọn trên màn hình —> 
hiện ra hình vẽ Bình đồ tuyến. 

Cách khác: gõ chữ t sau Conmunand rồi Enier cũng ra ngay hộp thoại Read Data 
/Øom , tiếp tục làm như trên. 


5. Vào menu TD-TN -> Trắc đọc tự nhiên —> nhấn Vẽ trắc dọc tự nhiên —> ra 
hộp thoại Trắc dọc tự nhiên của tuyến đường thứ ¡. Nhập tỷ lệ cắt dọc ngang 
1:1000, đứng 1:100. 

Nhấn Khai mẫu bảng ra hộp thoại Nhập dữ liệu đầu trắc dọc và trắc ngang như 
Hình N5. Vào mục Đầu trắc dọc. Khai xong mẫu cắt dọc theo ý muốn, nhấn Đồng 
ý > OK ra bản vẽ cắt dọc. 


Cách khác: Command : tả —> Enter cũng ra hộp thoại Trắc dọc tự nhiên của 
tuyển đường thứ 1. Tiếp tục làm như trên. 


8| 2oácscec¿ 
|Jÿ| 3 Cao độ hát kế 








Hình N5: Hộp thoại Nhập dữ liệu đâu trắc dọc và trắc ngang 
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Lưu ý 
- NOVA chỉ vẽ cắt dọc sau khi vẽ bình đồ. 
- Hộp thoại Hình N5 có mục Số hiệu, Mô tả để ta chuyển đổi tên hàug trong 


bảng theo cách gọi cửz ra thành cách gọi cửa máy. 


Thí dụ: Ta gọi là Bình đồ duôi thẳng, nhưng tương ứng Số hiệu 7 trong má gọi 
là Bình đồ sơ lược. Đây là sự chuyển đổi để máy thực hiện đúng các lệnh sẽ thực 
hiện sau này khi lên bản vẽ (như tính độ dốc, cao độ thiết kế v.v. 





6. Vào menu TD-TN -> Trắc ngang tự nhiên —> nhấn Vẽ trắc ngang tự nhiên —> 
ra hộp thoại Trắc ngang tự nhiên của tuyến đường thứ I. Nhập tỷ lệ vẽ cắt ngang 1:200. 

Nhấn Khai mâu bảng ra hộp thoại Nhập dữ liệu đâu trắc dọc và trắc gang như 
Hình N5. Vào mục Đầu trắc ngang. Khai xong mẫu cắt ngang theo ý muốn, nhấn 
Đồng ý => OK_ra bản vẽ cắt ngang. 

Cách khác: Command : tn —> Enrer cũng ra hộp thoại Trắc ngang tự nhiên của 
tuyến đường thứ 1. Tiếp tục làm như trên. 

7. Vẽ xong bình đồ, tắt dọc, cắt ngang tự nhiên nên Save vào một Eile bản vẽ 
AutoCAD (thí dụ BD-CD-CN- HMuc). Sau đó bắt đầu thiết kế đường đỏ. 

Kết quả vẽ xong bình đồ, cắt dọc, cắt ngang được thể hiện trên màn hình như 
Hình N6. (Hình này thể hiện thí dụ mới nhập số liệu có 4 cắt ngang) 

















Omnand) 
Onxand...qsave 
omnand. 





Hình Nó: Bản về Bình đồ, cắt dọc, cắt ngang tự nhiê 


B. Thiết kế đường đỏ trên cất dọc. 
Thiết kế đường đỏ trên cắt dọc có thể theo 2 cách: 


- Xác định cao độ khống chế các điểm đổi dốc trên cắt đọc rồi nối lại, máy sẽ 
tính tiếp ra số liệu độ dốc, cao độ thiết kế, cao độ thi công. 


- Từ một cao độ ban đầu, chọn độ đốc thiết kế theo ý muốn đến điểm khống chế 
thứ hai. 

1. Vào menu TD-TN -> nhấn Thiết kế trắc dọc => nhấn một điểm trên màn hình 
ra hộp thoại Đường đỏ cho tuyến đường thứ ! như Hình N7. Đánh dấu mục Bấm 
theo cọc. 


Nếu thiết kế theo cao độ, nhập trị số cao độ thiết kế theo cọc đổi dốc —> OK 


Đường đỏ cho Tuyến đường thứ 1 


 @mmrrran x]». 








Hình N7: Hộp thoại thiết kế đường đỏ điểm đầu tiên 
Thí dụ: Số liệu trên Hình N6: 
Tên cọc 1 Km: 0+00 Cao độ cọc 3.150 (là cao độ tự nhiên) 


Lấy cao độ hiện có 4.65 => OK —> máy định vị cao độ điểm đầu đúng ở 4.65, 
đồng thời ra Hình Nã. 
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Hình N8: Thiết kế đường đỏ điểm tiếp theo 
Di chuột đến điểm tiếp theo, làm tương tự. 


Nếu thiết kế theo độ dốc, trên hộp thoại Hình N8 đánh dấu mục Độ dốc. Nhập 
độ đốc thiết kế (thí dụ 3%), chọn điểm cuối dốc -> OK. 


Quy định: dấu ( - ) là lên đốc, ( + ) là xuống đốc. 
Đường đỏ thiết kế xong thể hiện như Hình N6 


2. Thiết kế xong, vào TD-TN chọn mục Điển thiết kế, máy sẽ điển các số liệu 
cao độ thiết kế, cao độ thi công, độ đốc/ chiều dài dốc từng đoạn v.v... 


Cách khác: Command : dtk —> Enter -> ra hộp thoại Điển thiết kế trắc dọc. 
Dùng chuột chỉ vào đường đỏ. Đánh dấu vào các mục: 


- Điền giá trị chênh cao (tức cao độ thi công) 
- Dốc dọc tính đến đỉnh giao nhau 
OK 
Kết quả cho Hình N9. 
€. Thiết kế cắt ngang 
1. Vào TD-TN -> Thiết kế trắc ngang —> ra hộp thoại Áp thiết kế trắc ngang 
~> nhấn mục Sửz ra hộp thoại Nhập số liệu trắc ngang thiết kế như Hình N10. 
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Dốc dọc rãnh trái 
Cao độ rãnh trái 
Dốc dọc rãnh phải 
Cao độ rãnh phải 
Đốc dọc thiết kế 



























































$6:WBNHE 335 553 5 5ã sẻ 

Cao độ tự nhiên 2 #8 đ 8683 5 35 Ñ 
— _—=—®— 1#. 6 tu ca... 
Cộng dồn 85 z858 § S5 
sẽ 5S Ø8 qÑq s.x€ 8 E8 8 

Khoảng cách lẻ 0.00| 0.84|0.84 | 93.3: 16.00 |1600 EG|9.37| 0.84 


Tên cọc, Đường cong 








Hình N9: Cắt dọc đã thiết kế xong. 


Số liệu nhập trên Hình N10 là thí dụ cho đường đô thị, có bó vỉa cao 0. 5m nên 
nhập số liệu ở hai mục: 


Cao lề : 0.15 
Rộng vái lề: 0.00 
iiề% : -2 


¡ là độ đốc ngang mặt đường, lề (hè) đường, quy ước: 
- Dấu ( + ) là dốc từ tím đường ra mép đường. 
~ Đấu ( - ) là đốc từ mép đường vào tim đường. 
Ở trên ¡ lẻ tức là dốc ngang hè đường đô thị, thường dốc về phía tìm đường (bó 
vía) nên có dấu ( - ), khác với lê đường ngoài đô thị thường đốc ra ngoài (đấu +). 
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Hình N10: Nhập số liệu trắc ngang thiết kế 


Nhập số liệu xong nhấn Nhận , trở về hộp thoại Áp thiết kế trắc ngang, nhấn Áp 
thiết kế, ra kết quả các hình cắt ngang đã thiết kế như Hình N6. Chi tiết một cắt 


ngang xem Hình N11 
2. Vào TD-TN -> Thiết kế trắc ngang -> Điền thiết kế trắc ngang —> ra hộp 
thoại Tuyến đường thứ l —> đánh dấu vào các mục: 
+ Điền độ dốc 
+ Điền cao độ đường đỏ 
+ Điền cao độ hoàn thiện 
OK —> ra cắt ngang thiết kế như Hình NII. 
Lưu ý: Khi thiết kế đường có dải phân cách ở giữa, cao độ thiết kế vẫn là cao độ mặt 


đường, tức là nằm trên đường ngang nối chân bó vỉa 2 bên đải phân cách. Tuy nhiên, 
máy vẫn điền cao độ thiết kế ở vị trí tim trên đỉnh bó vỉa, người thiết kế nên chỉnh lại. 


Đây chỉ là chỉ tiết nhỏ, nhưng khi một ngã tư giao nhau do 2 đơn vị thiết kế khác 
nhau, tại điểm giao nhau tìm 2 đường giao nhau, được cơ quan quy hoạch cho trước 
cao độ mặt đường khống chế (Thí dụ 4.65 m), một tuyến đường có đải phân cách, 
một tuyến không có, lúc khớp nối cao độ mặt đường khống chế có thể bị lệch nhau 
bởi cao độ bó vỉa dải phân cách, (thí dụ dải phân cách cao 30 cm thì cao độ tim 
đường có dải phân cách sẽ là 4,95 m). 
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D. Tính diện tích cắt ngang - Khối lượng nên đường 


1. Vào TD-TN —> Diện tích -> Tính Diện tích —> ra hộp thoại Tính diện tích của 
tuyến đường thứ 1. Đánh dấu mục Đường tự nhiên lấy theo cắt ngang => OK 
2. Vào TD-TN —> Diện tích —> Điển giá trị Diện tích —> ra hộp thoại Lập bảng 
diện tích từng cọc (Hình N12) —> Nhấn dòng I mục Diện tích điền phải (nếu muốn 
ghi trị số phía phải cắt ngang) —> gõ chữ Đắp „ẻn mục Mô rđ —> nhấn chữ Noue cột 
Công thức tính ra hộp thoại Xây đựng công thức tính (Hình N13) -> nhấn Ý mục 
Mô tả ra bảng chọn -> nhấn Đắp nền- DAPNEN -> OK -> về Lập bảng diện tích 
từng cọc => nhấn None ra kết quả 
Kiểu Diện tích Công Thức tính 
Đắp nền DAPNEN 
Nhấn dòng 2 lập công thức Đào nền theo các bước tương tự như trên. Tuy nhiên, 
với đào nền như Hình N11, qua hộp thoại Xây dựng công thức tính cần xác lập công 
thức(bằng cách dùng toán tử +): 
Đào nền+Đào rãnh phải+Đào rãnh trái+ Đào taluy phải+Đào taluy trái. 
Nhấn None ra Đào nền DAONEN 
=lel x| 


-iêM 3 1E Elsj =Izlƒ ialsl is JJ s\sJ rls|ol| 2] 
TRE Đ ng EI XâI 


TW cọc |ì karo0) x] Đếnce [' X] Biển cho toàn bộ cáo cọd 
Khoảng cáchE [t0 .- 
' Mồik hị ĐEn=S—A ”( Bmwi [no - RE s 
'Điểních đến hố ì IĐiệnhgh điển gã - 100 
iểu Diện tích, Lông Thức tính IEU 2 1-1[ Kiểu Diện tích] Công Thức tính BI 


Đắp nên DAPNEN m2 
Đào nỀn None mỡ 














1 
Ki 





>ị 
T- Điển gắu, 


n6 LE2], 2RB-L 





Conxand 
Connand 








[22813001007 [E0° [Sñõ /0RTRG. ÍÖSNAP MODEL íTILE 


xRsuan| ( # Ỉ Í[ElAuecaD -(6p.coc.. “$8e4z ra BS +® smAu 


Hình N12: Hộp thoại Lập bảng diện tích từng cọc 
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Hình N13: Hộp thoại Xây dựng công thức tính 

3. Cuối cùng nhấn Đồng ý trong hộp thoại Hình N12 ra kết quả ghi diện tích cắt 
ngang như hình N11. 
4. Lập Bảng Tổng hợp khối lượng. 
Vào TD-TN -> Diện tích -> Lập bảng từ giá trị điển —> ra hộp thoại Lập Bảng 
diện tích của tuyến đường thứ 1 —> đánh dấu vào các mục: 
+ Tính khối lượng theo công thức trung bình 
+ Bỏ qua các trắc ngang không về 
OK —> nhấn một điểm trên màn hình —> ra kết quả như Hình N14. 
IH. Nhận xét 
Phân mềm thiết kế đường ôtô NOVA đã thể hiện rõ sự kết hợp chặt chẽ giữa 
chuyên gia lập trình và chuyên gia thiết kế đường. Do đó đã bao gồm hầu hết tình 
huống thiết kế thường gập, dễ sử dụng. Có thể thiết kế cả đường ngoài đô thị và 
đường đô thị. Vấn đề thuật ngữ gọi tên bản vẽ, các đề mục bản vẽ ở Việt Nam “mỗi 
nơi một khác” cũng được khắc phục qua mục Mô rả. 


NOVA có thể Phối cảnh tuyến đường thiết kế, Hoạt cảnh theo hành trình, từ 
đó giúp ta thiết kế đường theo yêu cầu tầm nhìn xe chạy êm thuận, mỹ quan. 
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Từ cọc: 1Km:0 + 00 
Tới cọc: 4Km:0 + 31,68 










Diện tích Diện tịch trung bình 


16,22 
25,03 14,15 
10,84 22,93 12,87 
20,83 
10,84 
4 23.21 
720,16 419,00 


Hình N14: Bảng Tổng hợp khốt lượng 


Khối lượng 














Đào nền 
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Phụ lục 4 
PHẦN MỀM TÍNH KẾT CẤU SAP 2000 


Version 7.42 - 138 MB - Dùng với AutoCAD 2000 


Đây chỉ là giới thiệu sơ lược cách sử dụng, chủ yếu để bước đầu làm quen, trên 
cơ sở đó dễ hiểu hơn khi đọc thêm sách hướng dẫn chỉ tiết. 


L KHÁI QUÁT CHƯNG 


1. Thuật toán - Quy trình thiết kế 

Phương pháp tính toán theo phần tử hữu hạn. 

Tính kết cấu SAP được lập theo các quy trình thiết kế kết cấu bê tông của: 
- Viện bê tông Mỹ ACI 318-99 (American Concrete Ïnstitute) 


- Hội Cầu đường Mỹ AASHTO LRED 1997 (American Association of State 
Highway and Transportation Officials) 


- Hội Tiêu chuẩn Canada CSA-A23.3-94 (Canadian Standards Association) 
- Viện Tiêu chuẩn Anh BS 8110-85 R1989 (British Standards Institution) 


- Hội Tiêu chuẩn Châu Âu EUROCODE 2 (CEN 1992 — European Committee 
for Standardization) 


~ Tiêu chuẩn New Zealand NZS 3101-95 (New Zealand Standards) 


Hướng dẫn chỉ tiết tính SAP đọc trong Folder Manual. Tuy nhiên, trước hết nên 
đọc Quick Tuiorials và xem phân thực hành dưới dạng camera trong Folder 
Tutorial: Vào Computers and Structures => SAP2000 Nomlinear —> Tuforial —> 
nhấn $cplayer — Screen Camera —> Umtitled- Lots S...—> nhấn biểu tượng Ópen 
File —› ra bảng các đanh mục ví dụ —> giả sử muốn chạy 8ridge!a.sem, nhấn vào 
đó nhấn } Play (SPACBAR) —> máy chạy tự động các bước hướng dẫn dưới 
dạng camera, kèm theo lời hướng dẫn. 


2. Hệ trục toa độ 


Phân loại bài toán kết cấu theo hệ toạ độ thường chia 2 loại: bài toán phẳng và 
kết cấu không gian. Điều này được thể hiện qua hệ toạ độ chung X, Y, Z„ hệ toạ độ 
địa phương trục 1, 2, 3. Khi tính kết cấu chỉ đặt theo 2 chiều gọi là bài toán phẳng, 
theo 3 chiều là bài toán không gian. Tuy nhiên, ngay cả với bài toán phẳng, vẫn 


182 


dVS XU0.11 204 tọu n2HỊ2 Hộ (4 202 :1S HỊH 


_. 
l9 2| ÿA bat gui eq5 Buonp BuonH 


" tN‡— 


cSIXY 


tU0MpIEN CỐ Đi 


2 0à) nÏU9 IêN 
LSXv zsw 
XeUyŸ\ zSIXV lệ9 2| A k qửi am hung tai 
z8ML VI” FỊVĐ IÊWN 
lẹp ngIUÐ jA O0 tiện) | U21 QkU @A 9jl| 282) 


ội lực: chịu nén, chịu cắt, moment, chịu xoắn. 


hiện trong SAP như Hình SI. 


Bugetd yéu Buozj jgns Buj) ệA 2/17] 


Kn Các ft 


LỀỀY uaunjp puố spev 


tugox 3| ệA 201) 2ðp 2ñ e2 8Buonp BuanH 


g30L > 
tSXv 


z1 
Zsyy 


hể 





phải dùng cả 3 chiều để gọi t 


Điều này được t 


183 


__ Bài toán phẳng thường chọn hệ toạ độ X (ngang) Z (đứng) như Hình 52. Tương 
ứng số hiệu X=1, Z=2. Do vậy momenit uốn đầm phẳng trong mặt X2 Xoay quanh 
trục Y gọi là M3. 


3. Hệ đơn vị 


Hệ đơn vị có thể theo hệ inch hoặc mét (M). Tóm tắt như sau: - 


Chiêu đài Trọng lượng Lực Ứng suất 
Hệ inch in, feet (ft) pound (b), Kip  pound (b), Kp Đi 
HẹM cm, m Kg. Ton (Tấn)  KN, Kgf Ton Kgf/cm, T/mˆ 


Ở góc dưới màn hình chỉ ghi ngắn gọn như: ib-in, Ib¿f†, Kip-in, Kip-f, N-mm, 

N-m, KN-mm, KN-m, Ton-mm, Ton-m, Kgf'mm, Kgƒ-cm, Ton-cm 9...V... 
Đơn vị lực (Kg/) Việt Nam còn quen viết là Kgỉ hoặc &G. 

4. Chỉ tiêu cơ lý vật liệu. 

Khi thiết kế một kết cấu công trình, việc đầu tiên là xác định chủng loại vật liệu 
(phổ thông nhất là bê tông, thép), kèm theo đó là các chỉ tiêu cơ lý (mác bê tông, 
mác thép, cường độ chịu kéo, nén, cất v...v...). Đây là vấn để rất quan trọng, vì khi 
ta nhập số liệu về chỉ tiêu cơ lý vật liệu không chính xác, kết quả tính toán sẽ sai 
lệch rất nhiều. 


Các chỉ tiêu cơ lý lại thường chia 2 loại số liệu: 
- Chỉ tiêu kiểm tra, tính toán thực tẾ 
- Chỉ tiêu cho phép 
Sau dây là một số quy định chung. 
A. Bê tông 
a) Mác bê tông: được định nghĩa là cường độ chịu nén dọc trục của mẫu bê tông 
với kích thước quy định, sau 28 ngày bảo dưỡng, 


Kích thuốc quy định mẫu bê tông thí nghiệm tuỳ theo từng nước. Với Việt Nam 
trước đây, mẫu chịu nén là mẫu hình lập phương 20x20x20 cm, sau lại đổi là 
15 x 15 x 15 cm. Theo AASHTO (Mỹ) là mẫu trụ tròn ® 15 cm, cao 30 em. Khi 
dùng mẫu khác quy định, phải chuyển đổi về mẫu quy định qua hệ số đổi cường độ. 
Tuy nhiên, việc chuyển đổi này khó bảo đảm chính xác, nhất là hiện nay thường dùng 
phụ gia, tốt nhất là thí nghiệm mác bê tông theo đúng kích thước mẫu quy định. 

b) Các chỉ tiêu cơ lý thông dụng của bê tông: 

- Cường độ chịu nén (G;, Kgf/cm?); là cường độ chịu nén đúng tâm. Cường độ 
chịu nén đúng tâm cho phép của bê tông, M.200 là [ø,] = 200 Kgf/cmỶ. 
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- Cường độ chịu nén khi uốn (G„ Kgf/cm”): là cường độ phần chịu nén của bê 
tông khi dầm chịu uốn. Thí dụ cường độ chịu nén khi uốn cho phép của bê tông 
M.200 là (ơ,Ì = 90 Kgf/cm”. 

- Cường độ chịu kéo khi uốn (ơ,„ Kgf/em)) : là cường độ chịu kéo khí dầm chịu 
uốn, thí nghiệm trên mẫu chuẩn 15xI5x60 cm. Thí dụ cường độ chịu kếo khi uốn 
cho phép của bê tông M.200 là [ơ„„] = 7,50 Kgf/cmỶ. 

- Mô đun đàn hồi chịu nén của bé tông (E,, Kgf/cm?) : nói chung mô đun đàn 
hồi của vật liệu được xác định theo công thức : 


E=@œ/ð (Œ4-I) 
ö = Ah/h (4-2) 


ø - cường độ chịu nén (hoặc kéo). Với bê tông, khi xác định mô đun đàn hồi 
chịu nén thường dùng trị số mác bè tông (như M.200 có ơ = ơ, = 200 Kgf/cm?). 

Š - độ co (hoặc đãn dài) tương đối của mâu chịu nén (hoặc kéo) với mẫu có 
chiều cao h. 

Ah - độ co (hoặc đãn dài) của mẫu. Với bè tông M.200 là ở thời điểm chịu lực 
nén 200 Kgf/cm”. 

Tóm tắt một số chỉ tiêu cơ lý của bê tông như Bảng 4-1 sau để tham khảo. Các 
trị số này, tuỳ kết cấu chuyên ngành (như kết cấu nhà, kết cấu mặt đường...) đôi 
khi có quy định khác nhau. 


Bảng P4-1. Một số chỉ tiêu cơ lý của bê tông 


| Mác bé tông 150 | 200 | 250 | 300 | 350 | 400 | 500 
| 
| 
k 








[ơ,] , Kgf/cm? 150 | 200 | 250 | 300 350 400 500 
{øÌ, Kgfem? 65 90 L10 130 155 175 - 
[Ø„], Kgf/cm? 600 | 7,50 | 830 | 1000 | 1100 ˆ ˆ 
E,,10°Kgf/cm | 2,30 | 265 | 290 | 315 | 3.30 | 3.50 | 3,80 








Ghi chú Bảng P4-1: - Hệ số Poisson của bê tông (Poisson s Ratio) ¿i= 0.2 

- Trọng lượng đơn vị thể tích bê tông không cốt thép 2.2 Tin”, bê tông cốt thép 2.5 Tình. 
B. Cốt tháp 

a) Phân loại thép 

Hiện có nhiều cách phân loại, gọi tên Mác thép, 

+ Việt Nam chia 4 nhóm: Cl, CH, CHI, CTV 


+ Liên Xô cũ chia 4 nhóm: AI, AII, AI, AIV. Nhóm AI quen gọi là mác CT3, 
thép trơn. Nhóm AII quen gọi là mác CT5, thép gai. 
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b) Các chỉ tiêu cơ lý thông dụng của thép 
Tóm tắt một số chỉ tiêu cơ lý thông dụng của thép như bảng P4-2 để tham khảo. 


Bảng P4-2. Một số chỉ tiêu cơ lý của thép 

















Cường | Độ đãn | Cường độ Cường độ Mô dun 
Ý độ dài chịu kéo |chịu kéo khi uốn| ,...... 
Nhóm Tên 4 - đàn hồi, 
s giới tương | cho phép cho phép $ 
cốt thép nã Et. 10, 
tem hạn, đối, Ra, Ru, Ksffem? 
ề Kgfcm'| ồ,% | Kgf/cm Kgfem ẽ 
AI (CT3) 3800 25 2100 1600 
AI (CT5) 5000 19 2700 ˆ 
AM 6000 14 - - 
AIV 9000 6 - ˆ 














Ghỉ chú Bảng P4-2: - Trị số mô đun đàn hồi Et = (2,0 — 2,1) là trị số trung bình cho 
các loại thép thông thường. Với thép cường độ cao dùng cho cầu ứng suất trước. trỆ SỐ này 
do hãng sản xuất thép cung cấp. 

- Hệ số Poisson của thép (Poisson 's Ratlo) ¿ = 0.24 — 0,28. 

- Trọng lượng đơn vị thể tích thép 7.8 Tim”. 


II. VÍ DỤ S-1: TÍNH DẦM LIÊN TỤC 


Tính moment và cốt thép đầm bê tông cốt thép liên tục, tiết diện ngang 15x35 
cm, 2 nhịp 2xI = 2x400 cm, chịu lực tập trung P = 3.740 Kgf đặt ở giữa nhịp 1, chịu 
tải trọng phân bố hình thang ở nhịp 2, (300-500Kg/m trên chiều đài !m, cách cuối 
dầm Im). Bê tông M.200, cốt thép gai AII. 


1. Vào New File ra Coordinate System Definiiou — OK —> XY Plane, nhấn xz 
trên thanh công cụ ra trục toạ độ ngang X, đứng Z. Xem Hình S2 


Chọn đơn vị ở góc cuối màn hình, thí dụ Kgf-cem 
Muốn xoá bỏ lưới trên hình S2 cho đễ nhìn, nhấn F7. 


2. Nhấn phần tử (o) trên thanh công cụ — nhấn Trỏ lên màn hình, hiện ra điểm 
đầu dầm (o) trên màn hình. Nhấn se kết thúc lệnh. 


Nhấn tỏ vào (o) để đánh dấu. Nhấn C/+C, Cri+V ra hộp thoại Paxe 
Coordinafe. Tại X nhập trị số 400 —> OK —> ra đầu dầm thứ hai. Xem Hình S3. 


Lặp lạt như trên ra đầu dầm thứ ba (o) 
3. Nhấn ( trên thanh công cụ —> vẽ nối 3 điểm đầu dầm —> Ese kết thúc lệnh 


4. Đánh đấu đầu đầm, nhấn (A) ra Zoim Resiraints. Nhấn vào gối cố định (hoặc 
đi động) tuỳ ý. 
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Hình S3: Hộp thoại Paste Coordinate - Xác định đâu dâm thứ hai 
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Static Load Case Namesx 


sa c£ | lBš]SAP2000 - (United) = Hnyt mẽ 


Hình SS: Đặt tĩnh tải (trọng lượng bản thân dâm) 


5. Vào menu Ðefine —> Sratic load case ra hình S5 để đặt tĩnh tải, loại trọng 
lượng bản thân dâm ở cột SeJƒ Weigh: Multiplier. Nếu có xét đến trọng lượng bản 
thân, nhập số 1.1 (là hệ số vượt tải). Nếu không xét đến trọng lượng bản thân, nhập 
số 0 —> OK 

6. Đánh dấu dầm nhịp l (ra nét đứt ------ ), nhập tải trọng tập trung P. Nhấn ¿}} 
trên thanh công cụ để đặt các loại tải trọng khác trên dầm, ra Hình S6. Đánh dấu 
mục Absolute Distance from End-I. Nhập số liệu khoảng cách (Distance) 200 cm 
và tải trọng (Loa) 3740 Kgf -> ra Hình S7. 


Đánh dấu dầm nhịp 2, nhập tải trọng phân bố hình thang. Vào Assign —> Erame 
Static Load => Trapezoidal -> đánh dấu mục Absolute Distance from End-l -> 
mục Ðửection chọn Œraviry —> nhập số liệu tương tự hình S19 —> OK ra Hình S7. 


Muốn ứ¡ hình, nhấn Ctrl+G. 











Hình S6: Hộp thoại đặt các loại tải trọng tập trung, phân bố khác 
7. Vào Analyze —> Set Option ra Hình S§ —> Nhấn X⁄Z Plane —> OK 
› 


.8. Nhấn ra hộp thoại Rưn, nhấn ưu ra bảng Save Model File as... Đặt tên 
Eile theo đường dẫn (thí dụ CA Tỉnh-SAP\ DamAC). Nhấn Save -> máy chạy tính 
toán => Analysis Comijplete => OK, ra Hình S9. 
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Hình S7: Sơ đồ đặt tải 





Hình S8: Hộp thoại lựa chọn dạng kết cấu 


X 


Hình S9: Biến dạng dâm liên tục 


9. Vào Display => Show Element Forces/ §ressei —> Frame ra hộp thoại 
Member Forces Diagram For Frames như Hình S10. Chọn Momeni 3-3, Show 
Value => OK ra Hình SI 1. (Lý do chọn moment 3-3 xem hình SI). 





Hình SI1: Biểu đồ moment 


10. Nhấn biểu tượng khoá trên thanh công cụ để mở khoá, hình SI1 sẽ mất 
biểu đồ moment, chỉ còn sơ đồ dầm. ì 


Vào Define —> Material -> Add New Material J Show Material ra hộp thoại 
Material Property Dara như Hình S12. Nhập các số liệu như sau, chú ý chuyển đổi 
thống nhất T-m hoặc Kgf-cm : 
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a.Khối lượng đơn vị thể tích bê tông (Äf4sš per uuit Volurme) 2.5 T/m` 
b.Trọng lượng đơn vị thể tích bê tông (Weigiit per uuit Volume) 2.5 Tím) 


e. Mô đun đàn hồi bê tông (Modulus øƒ Elasticity) 2650000 T/m" 
đ. Hệ số nở hông của bê tông (Poisson 'š Ratio) 02 

e. Hệ số đãn nở do nhiệt (Cosƒff 2ƒ Thermal expansion) 9.900E-06 

f. Giới hạn chảy của thép (Reinforcing yield stress, Ð) 27000 T/ m? 


ø. Cường độ chịu nén của BT (Concrete sirength [Cylinder},ƒc) 2000 T/ m 
h. Cường độ chịu cắt giổi hạn chảy của thép (Shear steel yield stress, ys) 
16000 T/ m? 
¡. Cường độ chịu cắt của bê tông (Cowerete shear sirength,ƒcs) 75 T/ m° 
OK >OK 
- Lưu ý phân biệt chính xác các thuật ngữ: 
(4) có ý nghĩa như trọng lượng đơn vị thể tích đặc, về trị số bằng tỷ trọng. 


(b) có ý nghĩa như trọng lượng đơn vị thể tích rồng. Vì bê tông đặc (hay ít rỗng) 
nên cơi như hai trị số a = b 

(8g) là cường độ chịu nén của bê tông đúc mẫu trụ tròn (Cylinder}, khác với 
cường độ mẫu lập phương. Tuy nhiên, trị số này thường lấy theo yêu cầu Mác Bê 
tông thiết kế chự kiến trước. 

- Sau khi nhập chỉ tiêu cơ lý vật liệu như trên, muốn sửalại: Vào Đeƒfine —> 
Mauterial => Modj Show Material ra hộp thoại Material Property Data như Hình 
S12. Nhập lại các số liệu. 

11. Vào Ðefine —> Frame Section —> Add ! Wide Flange —> Add Rectangular —> 
OK ra hộp thoại Rectangular Sectron hình S13. Nhập kích thước dầm: 

Cao (Depth) 35 cm 
Rộng (W¡áth) 15cm 

- Lưu ý: Sau khi nhập kích thước dầm, muốn sửa lại: Vào Ðefime —> Fraime 
XecHon —> ModifyIShow SecHon —> OK ra hộp thoại Rectangular Section hình S13. 
Nhập lại kích thước đầm 

12. Nhấn tiếp vào Reinforcement ra hộp thoại Reinforcement Dafa, chọn Beam, 
nhập bề dày lớp bảo vệ cốt thép 

Đỉnh (Top) 3cm 
Đáy (Bottom) 3cm 
Mục Sec?on name đặt tên mặt cắt MC2 —> OK 
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Hình S13: Hộp thoại Rectangular Settion 
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13. Đánh dấu dầm (ra đường nét đứt). Vào Assign —> Frame —> Seclion —> ra 
hộp thoại Define Frame Section có MC2, nhấn MC2 —> OK —> ra sơ đồ vị trí mặt 
cắt như Hình S14 





X 


Hình S14: Sơ đồ tên mặt cắt 


14. Nhấn ký hiệu  Rưn trên thanh công cụ, máy chạy tính toán xong ra thông 
báo: Analysis Complete —> OK. 


Vào Design —> Start DesigHl Check oƒ Structure ra điện tích cốt thép như hình S15. 
Lưu ý: Khi trên hình diện tích cốt thép có số liệu, chỗ có ký hiệu O/S là báo hiệu 
tiết diện dầm bê tông không đủ bố trí cốt thép, phải tăng tiết diện dầm. 


900 0.89 212 2.12 9.68 0.00 
9.0 3.85 1.38 1.39 0.88 00 


‡ 


Hình S15: Diện tích cốt thép theo vị trí mặt cắt dâm 
II. VÍ DỤ S2: TÍNH CỐNG HỘP 


1. Sơ lược về bài toán tính đầm, tấm trên nền đàn hồi 


a. Phân loại dâm trên nên đàn hồi 


Khi thiết kế mặt đường bê tông hoặc cống hộp lớn trên nền đất, thường cắt ra 1 
m tài rồi coi như một đầm đặt trên nền đàn hồi. 


Phân loại dầm trên nền đàn hồi dựa vào tỷ số ^ = l⁄s. Trong đó: 


s-|#E2 d1) 
b.K, 
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1 (em) - chiều dài dầm, b =100 cm — bề rộng dầm. 

K, (Kgf/cmˆ) — hệ số nền. 

E (Kgf/cm”) - mô đun đàn hồi vật liệu đầm 

J (cm') - mô men quán tính tiết điện dầm. Với dầm chữ nhật J = bhỶ/12 

Khi À = l1/s <0,75 gọi là đầm cứng (có thể bỏ qua lực uốn của đầm) 

0725<A<23 gọi là dâm ngắn 
X>3 gọi là đầm dài. 

b. Hệ số nên K, 

Dầm trên nền đàn hồi hiện nay có nhiều giả thuyết, sơ đồ tính toán khác nhau, 
nhưng đơn giản nhất là theo mô hình Winkler: độ lún y tại một điểm đã cho của 
nên không phụ thuộc vào độ lún của những điểm khác và tỷ lệ với áp lực p tại điểm 
ấy, tức là: 

p= Ky (P4-4) 


Trong đó K, là hệ số nền (Kgf/cm?/cm = Kgf/cm'`) lấy bằng hằng số. Tham khảo 
trị số sau, theo P. L. Pasterơnac : 


~ Với đất rất yếu : K, =0,3-— 1,0 Kgf/cm` 
- Với đất yếu : K,=1-3 

~ Với đất chặt vừa : K,=3-8 

- Với đất rất chặt : K.=8-20 

- Với đất đá cứng : K, = 400 — 800 


Hình S16: Sơ đồ nguyên lý tính dâm trên nên đàn hồi 
c. Gán độ cứng lò xo 


Độ cứng lò xo của đầm trên nền đàn hồi, cọc, tường cừ được tính theo công thức: 


K,= K,b.l, Kgf/cm? (P4-5) 
Trong đó: K, là thành phần độ cứng lò xo theo phương vuông góc với dầm 
hoặc cọc cừ. 
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K, - hệ số nền, Kgf/cm': 
b - bể rộng nền, cm; 
1 - khoảng cách giữa các lò xo, em. 

2. Ví dụ S2 

Ví dụ này chủ yếu giới thiệu sơ lược cách dùng SAP tính toán bài toán dầm trên 
nền đàn hồi, không đề cập chỉ tiết mọi tình huống tổ hợp tải trọng. 

a. Yêu cầu tính toán 

Tính moment và cốt thép cống hộp bê tông cốt thép tiết diện thông thuỷ 
BxH=3,00 x2,80m. Kích thướctiết diện ngang dự kiến như hình S17. Bê tông 
M.300, cốt thép gai AII. 

Cống chôn trong đất á cát có dung trọng Iự nhiên y„ = 1,90 T/m`, góc nội ma 
sắt @ = 20", lực dính C = 0,50 T/m'. Góc ma sát giữa đất và thành cống ỗ = 19!. 

Nền đất đáy cống thuộc loại đất yếu, có hệ số nền K, = 0,60 Kgf/cm'. 

Tải trọng trên cống gồm 30cm mặt đường phía trên, xe HK80 được quy về 
lớp đất tương đương cao h, (với cùng loại đất á sét nêu trên), tải trọng nước chảy 
đầy cống. 

_ SP 
” BL+y 





(4-6) 


Trong đó : 
>P = 80T, là tải trọng xe HK80 
B=2.7+0,8 = 3,5 m, là bề rộng phủ bì lốp xe 
L=12x3+02+2.AH = 5,04 m, là chiều dài phân bố tải trọng, trên cơ sở 
chiều dài phủ bì lốp xe và chiều dày mặt đường AHI = 0,62 m. 
80 453 


“———————-=——=2.33m 
3,5x5,04xI1,9_ 1,9 


o 





Hình S17: Sơ đồ tính toán 
cống hộp 3,00 x 2,80m 
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-'Toàn bộ tải trọng phân bố đặt trên đỉnh cống, theo Im cắt đọc cống, gồm: tải 
trọng xe HKO (4.53 T/m) + tĩnh tải mặt đường (0,66T/ m} + trọng lượng bản thân 
cống (3.29 T/ m) + nước đầy cống (2.33 T/ m) = 10.81 T/m = 108.1 Kgf/em 

~ Tải trọng ngang tác dụng lên thành cống (hình thang) gồm áp lực đất, (có tính 
cả chiều cao cột đất tương đương 2,38m do xe HK80 gây ra), và áp lực nước đẩy ra 
khi cống chảy đầy nước. 


b. Các bước tính toán 


|. Vẽ sơ đồ tiết diện cống theo đường tim bề dày cống. Như vậy bể rộng cống 
I= 330cm, chiều cao h = 322.5 cm. Thao tác tương tự bước 1, 2, 3 ví dụ SI. 

2. Đặt một gối chống chuyển vị ngang theo phương X (ưục số I) : đánh dấu 
điểm D, nhấn (A) ra Joint Restraints (như Hình S4) —> đánh dấu vào Translation 
IOK. 


3. Chia đoạn đặt gối đàn hồi: giả sù chia đáy cống (đoạn CD) thành 6 đoạn. 
Đánh dấu mặt đáy, vào Edi —> Divide Frames ~> Divide Selected Frame — Divide 
imo 6. Dùng LastfFirst Ratio Ì có nghĩa là chia đoạn bằng nhau —> OK -—> ra hình 
như Hình S18. l 

4. Gán lò xo: Đáy cống CD chia 6 đoạn, chiều dài mỗi đoạn l,= 5Š em. Áp dụng 
công thức (P4-5) tính được độ cứng lò xo: 


K, =0,60 x 100 x 55 =3300 Kgf/cem 
Đánh dấu 7 gối chia 6 đoạn mặt đáy cống CD, vào Assien —> Joinf —y Spring ~> 
Joim Springs —> Ở mục Transiation 3 khai độ cứng ]ò xo 3300, đánh đấu mục Add 
to Existing Springs —> OK ra Hình S1 §. 


Hình S18: Sơ đồ định vị gối 
tại D và chia lò xo đáy cổng 


là 
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(Khi muốn kiểm tra lại số liệu độ cứng lò xo đã nhập, vào Display => Show 
Input Tables => Geometry Data —> ra hộp thoại Display Geometry Dafa —> đánh 
dấu vào Joint Spring Data => OK ~> ra bảng, cột K-U3 có trị số 3300). 

$. Chất tải ngang áp lực đất: có dạng hình thang (Trapezoidal). 

- Đầu tiên đánh dấu cạnh cống đoạn AD, trong đó tung độ điểm D = 0, điểm A 
= 322.5 cm. 

Vào Assign => Frame Statc Load -> Trapezoidal => đánh dấu mục Absolute 
Distance from End-I => mục Direction chọn Global X => nhập số liệu như hình S19. 











Hình S19: Nhập số liệu lực ngang hình thang 


- Đánh dấu cạnh cống đoạn BC, trong đó tung độ điểm B = 0, điểm C = 322.5 
em. Vào Assign và làm tiếp như trên. Lưu ý trị số lực ngược chiều cạnh AD nên 
mang dấu âm (-). : 

5. Chất tải đứng: Toàn bộ tải trọng đứng được chất lên mặt trên (cạnh AB). 
Đánh dấu cạnh AB. Nhấn LÌÌ trên thanh công cụ để đặt hoạt tải, ra Hình S6. Vì 
tải trọng đứng là phân bố đều nên nhập số liệu 108.1 Kgf/cm vào mục Unjform 
Load, mục Direction chọn ravity (chiều trọng lực) => OK —> ra hình 320. 

6. Vào Analyze —> Set Option —> nhấn biểu tượng XZ Plane (như Hình S8) => OK 
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Hình S20: Sơ đô đặt tải 


7. Nhấn ' Rưu —> ra bảng Save Model FHe as... Đặt tên File theo đường dẫn 
(thí dụ C;XTinhSAPACgHop-3x2.8). Nhấn Szve ~> máy chạy tính toán —> Analysis 
Comjplete => OK -> ra hình khung cống bị biến dạng. 


§. Vào Diiplay —> Show Element Forces/ Stresseš —> Frame ra hộp thoại 
Member Forces Diagram For Frames như hình S10. Chọn ÁMorment 
3-3, Shosu Value => OK ra Hình S21. (Lý do chọn moment 3-3 xem Hình S1). 

9. Nhấn biểu tượng khoá trên thanh công cụ để mở khoá, hình S21 sẽ mất biểu đồ 
moment, chỉ còn sơ đồ dầm. 


Vào Dafine —> Material => Add New MaleriallShow Material ra hộp thoại 
Material Property Daia như Hình S12. Nhập các số liệu như bước 10 trong Ví dụ 
S1, nhưng ở đây là bê tông M.300. 


a.Khối lượng đơn vị thể tích bê tông (Mass per unít Volume) - 00025 Kg/cm" 
b.Trọng lượng đơn vị thể tích bê tông (Weighr per unit Voluine) 0,0025 Kg/cm° 
c. Mô đun đàn hôi bê tông (Modulus oƒ Elasticuy) 315000 Kgf/cm” 
d. Hệ số nở hông của bê tông (Poisson 'š ÑafiØ) 9/2 
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- 762862.38 


Hình S21: Sơ đồ momem cống hộp 


e. Hệ số đãn nở do nhiệt (Coeƒƒ 0ƒ Thermal expahsioH) 9.900E-06 
†. Giới hạn chày của thép (Reinforcing yield suess, Ð) 2700 Kgf/cm? 
ø. Cường độ chịu nén của BT (Concrete strength {Cylinder], ƒc) 300 Kgffcm" 
h. Cường độ chịu cắt giới hạn chảy của thép (Shear steel yield stress, fy$) 
1600 Kgf/ cm” 
¡. Cường độ chịu cắt của bê tông (Cøuacrete shear strength, ƒcs) 10 Kgf/cm? 
OKSOK 


10. Khai 3 mặt cắt: MCI cho đoạn AB, MC2 cho AD, BC ; MC3 cho CD. Vào 
Define —> Frame Section —> Add! Wide Flange —> Add Rectangular —> OK —> rà 
hộp thoại Rectangular Section như Hình S13. Làm như bước 1 I thí dụ SĨ. 

11. Khai mặt cắt xong, lần lượt đánh dấu dâm AB, AD, BC, CD, Vào Assign — 
Erame —> Section —> ra hộp thoại Define Frame Secrion đã có đủ 3 mặt cắt MCI, 
MC2, MC3. Nếu đánh dấu đoạn AB, nhấn MCI —> OK ; tiếp theo đánh dấu AD, 
BC, nhấn MC2 -> OK : cuối cùng đánh dấu CD, nhấn MC3 —> OK —> ra sơ đồ vị trí 
các mặt cắt (tương tự hình S14). 
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12. Nhấn  Rưu -> máy chạy tính toán xong ra thông báo Analysis Complete 
>> OK 


Vào Design —> Start Design / Check óƒ Siructure —> ra kết quả điện tích cốt thép 
như Hình S22. 

Thực tế số liệu cốt thép hay có trục trặc, ta có thể dựa vào biểu đồ mô men để 
tính kiểm tra lại. 





X 


Hình S22: Diện tích cốt thép công hộp 
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Phụ lục 5 


TRÍCH DỊCH “SỐ TAY THIẾT KẾ BÊ TÔNG” 
SAP 2000 - VERSION 7.0 
Computers and Structuires- CONCRETE DESIGN MANUAL 


SỐ TAY THIẾT KẾ BÊ TÔNG 


Chương HII 
THIẾT KẾ THEO TIÊU CHUẨN ACI 318-99 


Chương này mô tả chỉ tiết trình tự thiết kế các kết cấu bê tông khác nhau khi 
dùng SAP2000 thiết kế theo Tiêu chuẩn của Viện Bê tông Mỹ ACI 318-99 
(ACI1999). Các ký hiệu dùng trong chương này xem Bảng HI-I 

Thiết kế dựa trên các tổ hợp tải trọng do người dùng quy định. Nhưng chương 
trình cũng cung cấp các tổ hợp tải trọng mặc định thoả mãn yêu cầu thiết kế hầu hết 
các đạng kết cấu công trình. 

SAP2000 cung cấp các lựa chọn thiết kế Thóng thường (Ordinarry), Trung gian 
(hutermediare) (như vùng có động đất), và Đặc biệt (Speciaí) (như vùng có động đất 
cao) các kết cấu mô men chống uốn được thiết kế theo yêu cầu động đất cho trước. 
Chỉ tiết các thông số dùng cho các hệ kết cấu khác nhau lần lượt được mô tả ở các 
phần sau. 

Hệ đơn vị của Anh SI và MKS được dùng để nhập số liệu. Nhưng chương trình 
dùng hệ Inch-Pound-Second. Để đơn giản, các phương trình trình bày trong 
chương này đều theo đơn vị Inch-Pound-Second, trừ khi có ghi chú khác. 


Bảng IHI-1. Bảng ký hiệu dùng cho Tiêu chuẩn ACI 








Ký hiệu Diễn giải 
Áw Diện tích bẽ tông dùng để xác định ứng suất cắt, in? (sq-in) 
A, Diện tích toàn bộ bé tông, in? 
A, Diện tích cốt thép chịu kéo, in? 
A Diện tích cốt thép chịu nén, in? 
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Ký hiệu 
Á (mgiah 
A¿ 
Ây 
a 


Cụ 


ma? mme 





Trị số mô men dùng để thiết kế, lb-in 
Trị số mô men cuối của cấu kiện không lắc lư, Ib-in 


Bảng III-I (tiếp theo) 


Diễn giải 





Diện tích cốt thép chịu kéo yêu cầu, in” 

Tổng diện tích cốt thép đọc cột, in” 

Điện tích cốt thép chịu cắt, in” 

Chiều cao vùng chịu nén, in 

Chiều cao vùng chịu nén trong điều kiện cân bằng, in 

Bề rộng cấu kiện, in 

Bề rộng chịu tác dụng của cánh dầm (dầm chữ T), in 

Bề rộng thân dầm (dầm chữ T), in 

Hệ số, phụ thuộc vào độ cong của cột, dùng để tính toán hệ số tăng 
mô men 

Chiều cao trục trung hoà, in 

Chiều cao trục trung hoà khi điều kiện cân bằng, in 

Khoảng cách từ mặt cốt thép chịu nén tới chịu kéo, in 

Lớp bảo vệ bê tông tính tới tim cốt thép, in 

Bể dày bản bê tông (dầm chữ T), in 

Mô đun đàn hồi của bê tông, psi (p/in”) 

Mô đun đàn hỏi của cốt thép, psi 

Cường độ chịu nén tiêu chuẩn của bê tông, psi 

Cường độ giới hạn chảy dẻo của cốt thép khi chịu uốn, psỉ 

Cường độ giới hạn chảy đẻo của cốt thép khi chịu cắt, psi 

Kích thước cột, in 

Mô men quán tính của toàn tiết điện mặt cắt bê tông quanh trục = 
tâm, không tính đến cốt thép, in” 

Mô men quán tính của cốt thép quanh trục trung tâm của cắt ngang 
cấu kiện, inÝ 

Hệ số ảnh hưởng của chiều dài 

Chiều dài tĩnh không, in 

Tri số giảm nhỏ mô men cuối cột, lb-in 


“Trị số tăng mô men trong cột, Ib-in 
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M, 
M, 
Mụ„ 
M¿y 
Ð, 
P. 
Đụ, 


Pụ 


ˆ.'.® 


m 





S 





Bảng III-1I (tiếp theo) 
Diễn giải 
Trị số mô men cuối của cấu kiện có lắc lư, lb-in 
Trị số mõ men tại mặt cắt, lb-in 
Trị số mô men tại mặt cắt quanh trục X, lb-in 
Trị số mô men tại mặt cắt quanh trục Y, lb-in 
Khả năng chịu tải dọc trục-frong điều kiện cân bằng chịu kéo, Ib 
Cường độ chịu nhiệt cực hạn của cột, !b 
Cường độ chịu tải dọc trục lớn nhất cho phép, lb 
Khả năng chịu tải đọc trục tại điểm lệch tấm zero, Ib 
Trị số chịu tải đọc trục tại mặt cắt, Ib 





Bán kính cong của mặt cắt cột, in 

Sức chống cắt của bê tổng, Ib 

Sức chống cắt gây bởi lực động đất, Ib 

Sức chống cắt do tải trọng trên nhịp, lb 

Lực cắt3ai tiết diện, lb 

Lực cắt tính theo sức chịu mô men, lb 

Hệ số cốt thép vượt tải 

Hệ số theo chiều cao phần chịu nén của bê tông 
Trị số tuyệt đối tỷ lệ giữa mö men lớn nhất do tĩnh tải với mô men 
lớn nhất do toàn bộ tải trọng dọc trục 

Hệ số mô men lớn nhất khi có lắc lư 

Hệ số mô men lớn nhất khi không lắc lư 

Chịu kéo trong bê tông 

Chịu kéo trong cốt thép 





Hệ số giảm tải 


L__—_`.——l'.2-- ———-.S-_—_————:->:————-._---=———— 


III-1. TỔ HỢP TẢI TRỌNG THIẾT KẾ 


Tổ hợp tải trọng thiết kế được xác định theo các tải trọng cho trước của kết cấu 
cần được kiểm tra. Theo Tiêu chuẩnACI 318-99, nếu một kết cấu chỉ chịu tĩnh tải 
(DL- dead load) và hoạt tải (LL- live load), kiểm tra ứng suất có thể chỉ cần một tổ 
hợp tải trọng 1.4DL+1.7LL (ACI 9.2.1). Do vậy, việc cộng thêm vào tĩnh tải, hoạt 
tải chỉ thực hiện khi kết cấu chịu lực gió và động đất, việc xem xét lực gió và động 
đất sẽ theo cả 2 chiều tác động, theo các tổ hợp tải trọng sau (ACI 9.2). 
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1/4 DL 


1⁄4DL + 177L (ACI 9.2.1) 
0,9 DL + 1,3 WL 

0,75 (1,4 DL + 1,7 LL + 1/7 WL) (ACI 9.2.2) 
0,9 DL + 1,3 * 1,1 EL 

0/75 (14 DL + 1/7 LL + 17 *1,1LL) (ACI 9.2.3) 


Ngoài ra cũng có các tổ hợp tải trọng mặc định trong SAP2000 khi dùng tiêu 
chuẩn ACI 318-99, 


Các hệ số giảm hoạt tải có thể được áp dụng cho các thành phần hoạt tải theo 
từng phân tố để làm giảm thành phần hoạt tải tập trung. 


II-2. CÁC HỆ SỐ GIẢM CƯỜNG ĐỘ 


Các hệ số giảm cường độ, ọ, được áp dụng cho các cường độ danh định nhận 
được khi thiết kế một cấu kiện. Hệ số ọ dùng cho chịu uốn, nén dọc trục, lực cắt và 
xoắn như sau: 


$ọ=0,90 cho chịu uốn (ACI 9.3.2.1) 
@ =0,90 cho chịu kéo dọc trục (ACI 9.3.2.2) 
@=0,90 cho chịu tốn và kéo dọc trục (ACI 9.3.2.2) 


@=0,75 cho chịu nén dọc trục, chịu uốn và nén đọc trục 
(cốt thép xoắn trong cột), và (AŒI 9.3.2.2) 


@=0/70 cho chịu nén dọc trục, chịu uốn và 
nén đọc trục (cốt thép xoắn trong cột), và (ACI 9.3.2.2) 


œ@ =0,85 cho cắt và xoắn 
II-3. THIẾT KẾ CỘT 


Không dịch ở đây. 


III-4. THIẾT KẾ DẦM 


Khi thiết kế dầm bê tông, SAP2000 tính toán và cho biết điện tích cốt thép cần 
thiết cho chịu uốn và chịu cắt, trên cơ sở mó men uốn, lực cắt trên đầm sinh ra do 
các tổ hợp tải trọng và các yếu tố khác, được mô tả sau đây. Cốt thép yêu cầu được 
kiểm tra/thiết kế theo một số mặt cắt xác định dọc dầm. 
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Tất cả các dầm chỉ được thiết kế theo phương chịu uốn và chịu cắt chính. Tác 
động của lực dọc trục, hướng uốn phụ, và chịu xoắn có thể có trong dầm phải do 
người sử dụng tự tính lấy. 

Trình tự thiết kế dầm bao gồm các bước sau: 

- Thiết kế cốt thép chịu uốn trong đầm 

- Thiết kế cốt thép chịu cắt trong dầm 

1. Thiết kế cốt thép chịu uốn trong dầm 


Cốt thép phía trên và đáy dầm chịu uốn được thiết kế/ kiểm tra theo các mặt cắt 
dọc nhịp dâm. Khi thiết kế cốt thép chịu uốn cho mô men chính với dầm riêng biệt 
mỹ mặt cắt xác định, các bước tính toán như sau: 

- Xác định mô men lớn nhấÌ 


- Xác định diện tích cốt thép 
a) Xác định mô men 


Khi thiết kế cốt thép chịu uốn của một kết cấu dầm bê tông Thông thường, 
Trung gian hoặc Đặc biệt, trị số mô men theo mỗi tổ hợp tải trọng ở một mặt cất 
xác định tính được theo các trường hợp đặt tải khác nhau với các hệ số tải trọng 
tương ứng. 

Từ đó, mặt cắt dầm được thiết kế theo mô men dương lớn nhất M,* và mô men 
âm lớn nhất M„ tính được theo tất cả các tổ hợp tải trọng. 

Mô men âm do cốt thép phía trên chịu. Trường hợp này dầm thường được thiết 


kế theo mặt cắt hình chữ nhật. Mô men dương do cốt thép phía dưới chịu. Trường 
hợp này dầm có thể thiết kế theo mặt cắt chữ nhật hoặc chữ T 


b) Xác định cốt thép chịu uốn yêu cầu 


Trong quá trình thiết kế cốt thép chịu uốn, chương trình tính cả cốt thép chịu 
kéo và chịu nén. Cốt thép chịu nén được cộng thêm khi mô men thiết kế vượt quá 
sức chịu mô men lớn nhất của mặt cắt chỉ có một loại cốt thép chịu kéo. Người thiết 
kế có thể tránh dùng cốt thép chịu nén bằng cách răng chiều cao có hiệu, chiều rộng 
của dầm, hoặc tăng mác bê tông. 


Trình tự thiết kế dựa trên sơ đồ phân bố ứng suất đơn giản trên hình chữ nhật 
như đã thể hiện trên hình III-3 (ACI 10,2). Hơn nữa, giả định rằng ứng suất nén 
trong bê tông chỉ bằng 0,75 lần ứng suất có được trong điều kiện cân bằng kéo-nén 
(ACT 10,3.3). Khí dùng mô men vượt quá khả năng chịu mô men của đầm trong 
điều kiện cân bằng này, diện tích cốt thép chịu nén được tính với giả định rằng phần 
mô men lớn hơn sẽ do cốt thép chịu nén và cộng thêm cốt thép chịu kéo. 


Trình tự thiết kế trong SAP2000 cho cả hai trường hợp mặt cắt hình chữ nhật và 
có cánh (như dầm chữ L và chữ T) được tóm tắt sau đây. Với giả định rằng lực đọc 
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trục cực đại không vượt quá 0,If.`A, (ACI 10,3.3), như vậy tất cả các dầm được 
thiết kế chỉ theo hướng chịu uốn và chịu cắt chính 


- Thiết kế dâm chữ nhật 


Khi thiết kế theo mô men âm và dương, M,, (tức là tính cốt thép ở trên hoặc 
dưới dầm) chiều cao phần chịu nén tính theo a (xem hình III-3) 


2|M 
a=d- đ? _.2[M.]. 
0,85f.œb 
Trong đó, ‹ọ = 0,90 (ACI 9.3.2.1). Các trị số B, và cụ tính như sau 
Bị =0,85—0,05Ì-————— v , 0,65<ÿ¡ <0,85 
ˆ 1000 - 


11h sa (ACI 10,2.3, 10,2.4) 
sE.+f,  87000+f, 


(ACI 10,2.7.3) 


Chiều cao cho phép lớn nhất phần chịu nén theo công thức 
8uux = 0,75 fị Cụ 


(ACI 10,2.7.1) 


e= _— E3 
l 






22/274. —+ 


Z/IMENIAN —- 


Im 


(¡) Cắt ngang dầm (I) Biểu đồ ứng suất 


(ii) Biểu đổ ứng suất nén 
Hình III-3: Thiết kế mặt cắt dâm chữ nhật 
- Nếu a < a„„„, điện tích cốt thép kéo là: 


Mụ 


ọf(d~a/2) 


Cốt thép này đặt ở đáy dầm nếu mô men M, dương, hoặc ở đỉnh dầm nếu M 
là âm. 


v= 
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- Nếu a > a„„„, cần có cốt thép chịu nén (ACI !0,3.3) và được tính như sau: 
+ Lực nén chỉ phát sinh trong bê tông là: 
C = 0,85fc°ba„„, và (ACIT 10.2.7.1) 
Sức chống mô men đo bé tông chịu nén và cốt thép chịu kéo là: 
M,. = C(d — a„„/2)0 
+ Sức chống mô men do cốt thép chịu nén và cốt thép chịu kéo là: 





Mụ„ = M, - Mụ, 
+ Do vậy cốt thép chịu nén yêu cầu được tính là: 
+ M,, 
`  rd—đ) 
Trong đó: 
£.=0,003E, ÌỆ — (ACI 10.2.4) 


+ Cốt thép chịu kéo yêu cầu để cân bằng chịu nén trong bê tônglà: 
Mụ, 

fÿ(d~am¿„ /2)0 

và cốt thép chịu kéo để cân bằng cốt thép chịu nén là: 

=_ Mụ, 

_ f(d-d@ 


Ai = 


Aa 


+ Như vậy, tổng cốt thép chịu kéo, A, = A.¡ + A ¿, và tổng cốt thép chịu nén 
Ác. 

A, được đặt ở đáy và A.* được đặt ở đính đầm nếu M, là đương, ngược lại nếu 
mô men M, là âm. 

- Thiết kế dâm chữT 


Khi thiết kế theo mô men âm, M,, (tức là cốt thép đặt trên đỉnh đầm), tính toán 
diện tích cốt thép chính xác tương tự như trên, tức là, số liệu không có dầm T được 
dùng. Xem hình III-4. Nếu M, > 0, chiều cao phần chịu nén là: 


lạ_ —2M, 


a=d- = 
0,85f/0b, 


Chiêu cao lớn nhất cho phép vùng chịu nén tính theo công thức: 
: Ơ„„ = 0.75 BịC, (ACI 10.2.7.1) 
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N2 
NV 


(() Cắt ngang dám (i) Biểu đồ ứng suất (ii) Biểu đổ ứng suất nén) 


Hình III-4: Thiết kế dâm chữ TT 


- Nếu a < d, trình tự tính A, như với tiết diện chữ nhật đã nêu ở trên. Tuy vậy, 
trong trường hợp này cánh dầm chịu nén được tính như bề rộng dầm khi tính toán. 
Hoặc là cốt thép chịu nén tuỳ thuộc trị số a > a,„„„. 


- Nếu a > d,, tính toán A, được chia thành 2 phần. Phần thứ nhất theo cân bằng 
lực nén ở cánh dầm, C¡„ và phần thứ hai theo cân bằng lực nén ở thân dầm, C„„ như 
đã thể hiện trên hình III-4. C; được tính theo công thức: 


C, =0,85f/(bị =b, )d, 


Do đó, A¡ = C/f, và thành phần M, do cánh dầm chịu là: 
Mr = Cr(d—d/2)@ 
Trong đó ọ = 0,90, Do đó, để cân bằng kéo-nén chịu mô men M,, mô men do 
cánh dầm chịu được tính theo công thức: 
Mụy T M, TT Mụ; 
Thân dầm hình chữ nhật có kích thước b„ và d, chiều cao phần chịu nén là: 
2M, 


ai=d~ d”~ D 
_ 0,85f0b„ 


+ Nếu a, < a„„„„ diện tích cốt thép chịu kéo là: 
M uw 
@£, (d-ai/2) 


Aa= 
A,=Aji+A¿ 
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Cốt thép này được đặt ở đáy dâm chữ T 
+ Nếu a, > a„„„, cần có cốt thép chịu nén (ACI 10,3.3) được tính như sau: 
Lực nén chỉ riêng bê tông thân đầm chịu là: 

C=0,85f ban (ACI 10,2.7.1) 


+ Nếu a > d,, tính toán A, bao gồm 2 phần. Phần thứ nhất theo cân bằng lực nén 
phần cánh dầm, C,, và phần thứ hai theo cân bằng lực nén thân đầm, C„. như đã thể 
hhiện trên Hình III-4. C; tính theo công thức: 


C¡ =0,85f/(br —b„)d, 
Do đó, A= C/⁄f, và thành phần M, do cánh đầm chịu là: 
My; = Cr(đ-— d. /2)0 


Trong đó œ = 0,90, Do đó, để cân bằng kéo-nén chịu mô men Mẹ, mô men do 
cánh dâm chịu được tính theo công thức: 


Mu = M, = Mừ 
Thân đầm hình chữ nhật có kích thước b„ và d, chiều cao phần chịu nén là: 
ai =d- |d?— ch 
0,85fob., 
+ Nếu a, < a„„„, điện tích cốt thép chịu kéo là: 


s2 — 
@f,(d—a,/2) 
Áy=Ain +Á¿ 
Cốt thép này được đặt ở đáy dầm chữ T 
+ Nếu a, > a„„., cần có cốt thép chịu nén (ACI 10,3.3) được tính như sau: 
- Lực nến chỉ riêng bê tông thân dầm chịu là: 
C=0,851 ba, (ACI 10.2.7.1) 
~ Do vậy, sức chịu mô men của bê tông thân đầm và cốt thép chịu kéo là: 
Mụ, =c(d— ama„ /2)@ 
Sức chịu mô men của cốt thép chịu nén và chịu kéo là: 
My = _M 


uw ụC 
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- Do vậy, cốt thép chịu nến được tính là: 
M 


MS 


` @f(d— 
. : : [c- ở] 
Trong đó: ft =0,003E, ——— (AI 10.2.4) 
& 
- Cốt thép chịu kéo để cân bằng chịu nén với bê tòng thân dầm là: 
Mụ, 
_ ĐÉ (d Eibạt /2) 


cN 


và cốt thép chịu kéo để cân bằng cốt thép chịu nén là: 
Mẹ, 
œÍ,(d~đ) 


Ảš= 
Tổng số cốt thép chịu kéo, Á, = A, + A¿ + A,„ và tổng số cốt thép chịu nén là 
A,'. A, đặt ở đáy đầm và A° đặt ở đỉnh dầm. 
- Cốt thép chịu kéo tối thiểu 


Cốt thép chịu kéo khi uốn tối thiểu cần có trong đầm chữ nhật khi kết cấu chịu 
mô men Thông thường, trị số tối thiếu được xét theo 2 giới hạn sau: 


3V£ 
VỀ bạ Vu kợã 








A, >max (ACI 10.5.) 
y ề 
hoặc A,> 5 Âkbjấi (ACI 0.5.3) 


- Thiết kế đặc biệt có xét đến động đãi 
Để thiết kế sức chịu mô men đặc biệt của kết cấu bê tông (động đất), dầm được 
thiết kế thêm các điều kiện sau (xem Bảng ïI]-2): 


- Cốt thép đọc tối thiểu sẽ được quy định cho cả phía trên và dưới đầm. Cốt thép 
cả trên và đưới đầm đều không được nhỏ hơn À.„„„„ (ACI 21.3.2.1). 





l : 1 
3./T | 
em) ĩ =b„d và c b,2| (ACI 10.5.1) 
x 4 & 
hoặc A,> 3ÁNggàng) (ACI 10.5.3) 


- Cốt thép dầm chịu uốn có giới hạn cực dại là: 


> 0025b,d (ACI 21.3.2.1) 
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- Tại đầu dầm (gối đỡ), dầm chịu mô men dương (tương ứng với cốt thép đặt ở 
đáy) sẽ không được nhỏ hơn 1/2 dầm chịu mô men âm (tương ứng với cốt thép đặt 
ở trên) tại đầu đó (ACI 21.3.2.2) 

- Khả nãng chịu mô men âm hoặc dương của bất kỳ mặt cắt nào trong đầm 
không được nhỏ hơn 1/4 khả năng chịu mô men dương hoặc âm ở bất kỳ đầu dầm 
(gối đỡ) nào (ACI 21.3.2.2). 

Với kết cấu bê tông chịu mô men Trung gian (khi thiết kế động đất), dầm phải 
thoả mãn các điều kiện sau: 

- Tại bất kỳ gối đỡ nào, khả năng chịu mô men dương của dầm không được nhỏ 
hơn 1/3 khả năng chịu mô men âm của dầm tại gối đó (ACI 21.10,4.L). 

- Khả năng chịu mô men âm hoặc đương của dầm tại bất kỳ mật cắt nào trong 
dầm không được nhỏ hơn 1/5 khả năng chịu mò men dương hoặc âm lớn nhất tại 
bất kỳ đầu dầm (gối đỡ) nào (ACTI2I.10,4.1). 


2. Thiết kế cốt thép chịu cắt của dầm 

Cốt thép chịu cắt của dầm được thiết kế theo mỗi số hiệu tổ hợp tải trọng do 
người thiết kế xác định tại các mặt cắt dọc dầm. Khi thiết kế cốt thép chịu cắt cho 
một đoạn đầm theo một thành phần tổ hợp tải trọng tại một vị trí xác định, theo lực 
cắt chính của dầm, bao gồm các bước sau: 

- Xác định trị số lực cắt, Vụ, 

- Xác định lực cắt, V„, do bê tông chịu 

- Xác định cốt thép yêu cầu trong điều kiện cân bằng kéo-nén 

“Theo sức chống mô men Trung gian và Đặc biệt (kết cấu chịu uốn), lực cắt thiết 
kế của đầm cũng dựa trên khả năng chịu mô men danh định và có thể có của câú 
kiện, tương ứng, cộng thêm hệ số tải trọng thiết kế. 

Có 3 mục sau mô tả chỉ tiết cách tính toán, tương ứng với các chỉ dẫn trên. 

a) Xác định lực cắt và mô men 

- Khi thiết kế cốt thép chịu cắt của dầm của một kết cấu bê tông chịu mô men 
Thông thường, lực cắt và mô men cho một thành phần tổ hợp tải trọng tại một 
đoạn dầm được xác định theo trị số lực cắt và mô men liên quan đến tổ hợp tải 
trọng tương ứng. 

- Khi thiết kế kết cấu bê tông chịu mô men Đặc biệt (thiết kế động đất), khả 
năng chịu cắt của đảm được kiểm tra theo lực cát có thể chịu theo khả năng mô 
men có thể chịu tại đầu đầm và trọng tải. Kiếm tra này được thực hiện có xét thêm 
đến yêu cầu kiểm tra thiết kế theo sức chịu mô men Thông thường của dầm. Lực 
cắt, Vụ, được tính theo khả năng có thể chịu mô men của mỗi đầu dầm và lực cắt 
theo phương trọng lực. Trình tự tính toán lực cắt thiết kế trong dầm theo sức chịu 
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mô men có thể được cũng giống như đã mô tả trong phần “Thiết kế cột” trang 27 
(nguyên bản, không dịch ở đây). Chí tiết xem Hình II-2. 


Lực cất thiết kế Vụ được tính theo (ACI 21.3.4.1) là: 
Vu=V,+ Vụ (ACI 21.3.4.1) 


Trong đó, Vp là lực cát tính được theo khả năng chịu mô men cực hạn tại 2 đầu dầm 
tác động theo 2 chiều ngược nhau. Do đó, V, là trị số lớn nhất của Vụ, và V„„, trong đó 


Mi +Mƒ 
Vại = 1 Ề J 
Mi +M;, 

p L 


Mỹ = khả năng chịu mô men tại đầu I, với cốt thép chịu kéo ở đỉnh dâm, dùng 
trị số giới hạn chảy dẻo của thép œf, không có trị số  ( @ =I.0) 

Mỹ = khả năng chịu mô men tại đầu J, với cốt thép chịn kéo ở đáy dầm, dùng 
trị số giới hạn chảy dẻo của thép œf, không có trị số @ ( @ =1.) 

Mị = khả năng chịu mô men tại đầu L, với cốt thép chịu kéo ở đầy dầm, dùng trị 
số giới hạn chảy dẻo của thép ơf, không có trị số g (  =1.0) 

Mỹ = khả năng chịu mô men tại đầu J, với cốt thép chịu kéo ở đỉnh đầm, dùng 
trị số giới hạn chảy dẻo của thép œf, không có trị số @ ( @ =1.0) 

L _= Nhịp ũnh không của đầm. 

Với dâm chịu mô men đặc biệt trị số œ = 125 (ACI R21.3.4.1). Vụ„¡, là phần 
tham gia chịu lực của lực cắt dưới tác dụng của trọng tải phân bố trên nhịp. 

- Với kết cấu chịu mô men trung gian, khả năng chịu lực cắt của dầm cũng 
được kiểm tra theo thiết kế Tực cát danh định dựa trên khả năng chịu mô men đanh 
định tại đầu dầm và các yếu tố tải trọng, đồng thời cũng kiểm tra thêm sức chịu mô 
men Thông thường của dầm. Khi thiết kế lực cắt trong dầm dùng trị số tối thiểu dựa 
trên sức chịu mô men và lực cất danh định. Trình tự tính sức chịu mô men danh 
định (@ = 1,0) tương tự như tính khả năng chịu mô men của kết cấu chịu mô men 
Đặc biệt, ngoại trừ việc dùng œ = 1, ít dùng hơn trị số œ = 1,25 (ACI R21.10). Trị 
số lực cắt dựa trên trị số tải trọng quy định, trừ tải trọng động đất nhân đôi (ACI 
21.10,3). Việc tính toán lực cắt trong đầm của một kết cấu chịu mô men Trung 
gian cũng tương tự như tính cột, được mô tả ở trang 28 (nguyên bản, không dịch ở 
đáy). Chỉ tiết xem thêm Bảng 11-2. 


b) Xác định sức chịu lực cắt của bê tông 
Sức chịu lực cắt cho phép của bê tông được tính là: 
V.=2-/fb,d (ACI 113.1.) 
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Để thiết kế sức chịu mô men Đặc biệt của kết cấu bê tông, V, được coi bằng 
zero nếu cả hai lực nén dọc trục bao gồm cả ảnh hưởng của động đất P„ nhỏ hơn 
£`A, /20 và lực cắt chịu lực động đất Vẹ nhiều hơn nửa tổng lực cắt lớn nhất có trên 
toàn bộ chiều dài cấu kiện V, (tức là Vẹ> 0,5 Vụ) (ACI 21.3.4.2) 


€©) Xác định cốt thép chịu cắt yêu cầu 
Theo trị số Vụ và V,, cốt thép chịu cắt yêu cầu tính bằng diện tích/đơn vị dài 
được tính như sau: 
- ©, /@- V.)s 


A 
: f„.d 


(ACI 11.5.6.2) 


Sức chống lực cất do cốt thép được giới hạn như sau: 
(V,/@— V.)s <8./fbd (ÁCI 11.5.6.9) 


Trong đó, ọ, hệ số giảm cường độ là 0,85 (ACI 9.3.2.3). Trị số lớn nhất của A„ 
nhận được từ mỗi tổ hợp tải trọng, được cho biết cùng với quá trình kiểm tra lực cắt 
và liên quan với số tổ hợp tải trọng. 

Cốt thép chịu cắt yêu cầu của dầm được thể hiện trong chương trình SAP được 
dựa trên xem xét cường độ lực cát. Bất kỳ sốlượng thép đai tối thiểu nào thoả mãn 
khoảng cách lắp đặt và xem xét khối lượng phải được người thiết kế tính toán độc 
lập với chương trình. 


Bảng III-2. Các thông số thiết kế 









Kết cấu chịu 
„ Loại mômen 
kiểm mra/th. kế| thông thường 
(không động đất) 





Kết cấu chịu mô men Kết cấu chịu mô men 
trung gian (có động đất) đặc biệt (có động đất) 


































4 
Kiểm tra cột | Số tổ hợp tải Số tổ hợp tải trọng Số tổ hợp tải trọng 
(tương tác) | trọng quy định quy định quy định 
Số tổ hợp . ° Độc _ 
“Thiết kế cột tang Số tổ hợp " trọng Số tổ hợp Bái trọng 
\ &) quỷ đình quy định quy định 
tưƠn IẠC l 1% <p< 8% = L0, 1% % 
1% <p< 8% 0 SĐp ọ œ 0, 1# <p< 6% 
Sửa đổi số tổ hợp tải trọng . z 
: “ải quy định (gấp đôi tải trọng Số tổ hợp tải trọng 
Lực cất cột | Số tổ hợp tải động đất) quy định và khá năng chịu 
trọng quy định | xá năng chịu tải của CỘI. cất của cột 
` @= 1.0 và œ = 1.25 
tp = 1,0 và œ = 1.0 











214 


Bảng III-2 (tiếp theo) 






Số tổ hợp tải trọng 

















Thiết kế dầm | Số tổ hợp tải Số tổ hợp tải trọng - quy định 
chịu uốn trọng quy định p<0.025 
quy định r 
".... 
f tý 
# l + I - 
Mu > EÌ Mu; Mụiyo > 2 My; 


Kiểm tra Số yêu cầu 
MuyAx ` > L max x 
x{M,*, M,liy› 
Mụyuy > Ì max x 
x{M,. M, liu› 


kg ¬ 
tối thiểu 5 










MuyAn: ề 









[M,', M, ]› 


Sửa đổi số tổ hợp tải trọng | Số tổ hợp tải trọng quy định 

Số tổhợptải | 4MY định (gấp đôi tải trọng | Khả năng chịu cắt của đầm 
động đất) {Vp) với œ = 1.25 và 

Khả năng chịu cắt của đầm @= L0 cộng Vụ, 

(Vp) với œ = 1.0 và ọ = 1,0 V.=0 

cộng Vì, 















Thiết kế lực : 
cắt đầm trọng 
quy định 





















Chương IV 
THIẾT KẾ THEO TIÊU CHUẨN AASHTO LRFD 1997 


Chương này mô tả chỉ tiết trình tự thiết kế các kết cấu bê tông khác nhau khi 
dùng SAP2000 thiết kế theo Tiêu chuẩn của Hội Cầu Đường và Giao thông Mỹ 
AASHTO LRFD 1997. Các ký hiệu dùng trong chương này xem Bảng IV-1 

Thiết kế dựa trên các tỏ hợp tải trọng do người dùng quy định. Nhưng chương 
trình cũng cung cấp các tổ hợp tải trọng mặc định thoả mãn yêu cầu thiết kế hầu hết 
các dạng kết cấu công trình. 

: SAP2000 cung cấp các lựa chọn thiết kế hoặc kiểm tra sức chịu mô men của kết 
cấu thuộc Vùng 1 (động đất thấp), 2, 3 và 4 (động đất cao) theo yêu cầu thiết kế 
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động đất cho trước. Chỉ tiết các thông số dùng cho các vùng động đất khác nhau lần 
lượt được mô tả ở các phần sau. l 

Hệ đơn vị của Anh SI và MKS được dùng để nhập số liệu. Nhưng chương trình 
dùng hệ Inch-Pound-Second. Để đơn giản, các phương trình trình bày trong 
chương này đều theo đơn vị Inch-Pound-Second, trừ khi có ghi chú khác. 


Bảng IV-1. Bảng ký hiệu dùng cho Tiêu chuẩn AASHTO 











Ký hiệu 
Diện tích bê tông dùng để xác định ứng suất cắt. in? (sq-ìn) 

A Diện tích toàn bộ bê tông, in? 

Á, Diện tích cốt thép chịu kéo, in? 
A Diện tích cốt thép chịu nền, in? 

A„»u«› — | Điện tích cốt thép chịu kéo yêu cầu, in? 

Âu Tổng điện tích cốt thép dọc cột. in? 

Á Diện tích cốt thép chịu cắt. in? 

a Chiều cao vùng chịu nén. in 

ây Chiểu cao vùng chịu nén trong điều kiện cân bằng, in 
gu Chiểu cao lớn nhất cho phép vùng chịu nén, in 

b Bề rộng cấu kiện. in 

by Bê rộng chịu tác dụng của cánh dầm (dầm chữ T), in 

bự, Bề rộng thân dầm (đầm chữ T), in 

C- Hệ số, phụ thuộc vào độ cong của cột, dùng để tính toán hệ số tăng mô men 

€c Chiều cao trục trung hoà. in 

Cụ Chiều cao trục trung hoà khi điều kiện cân bằng, in 

d Khoảng cách từ mặt cốt thép chịu nén tới chịu kéo, in 

đ Lớp bảo vệ bê tông tính tới tim cốt thép, in 

đ, Bề dày bản bê tông (dầm chữ T). in 

E, Mô đun đàn hồi của bê tông, psĩ (pñn”) 

E, Mô đun đàn hồi của cốt thép, giá định là 29.000 ksi (= 2.030,000 Kgf/cmˆ) 
là Cường độ chịu nén tiêu chuẩn của bé tông, ksi 

f Cường độ giới hạn chảy dẻo của cốt thép khí chịu uốn. ksi 

Ấy Cường độ giới hạn chảy dẻo của cốt thép khi chịu cắt, ksi 

h Kích thước cột, in 
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Bảng IV-I (tiếp theo) 





—¬ 








2 
Mô men quán tính của toàn tiết điện mặt cắt bê tông quanh trục trung tâm. 


S không tính đến cốt thép, ¡n* 
Lh Mô men quán tính của cốt thép quanh trục trung tâm của cắt ngang cấu 
kiện, in* 
k Hệ số ánh hưởng của chiều dài 
L Chiều dài tĩnh không . ìn 
M, Trí số giảm nhỏ mô men cuối cột, kip-in 
M; 'Trị số tăng mô men trong cột, kip-in 
M, Trị số mô men dùng để thiết kế, kip-in 
M, Trị số mô men cuối của cấu kiện không lắc lư, kip-in 
M, Trị số mô men cuối của cấu kiện có lắc lư, kip-in 
M, Trị số mô men tại mặt cắt, kip-in 
M„ Trị số mô men tại mặt cắt quanh trục X, kip-in 
My Trị số mô men tại mặt cắt quanh trục Y, kip-in 
P, Khả năng chịu tái dọc trục trong điều kiện cân bằng chịu kéo, kịp 
P, Cường độ chịu nhiệt Euler của cột, kip 
Phậ Cường độ chịu tải dọc trục lớn nhất cho phép, kip 
B Khả năng chịu tải đọc trục tại điểm lệch tâm zero, kíp 
LÃ Trị số chịu tải đọc trục tại mặt cắt, kip 
r Bán kính cong của mặt cắt cột. in 
XÃ Sức chống cắt của bê rông, kip 
Vui, Sức chống cất do tải trọng trên nhịp, kịp 
Vy Lực cắt tại tiết diện, kịp 
V, Lực cắt tính theo sức chịu mô men, kip 
œ Hệ số cốt thép vượt tải 
B Hệ số khả năng gây nứt chéo của bê tông do truyền lực kéo 
Bị l Hệ số theo chiều cao phần chịu nén của bê tông 
Bụ Trị số tuyệt đối tỷ lệ giữa mô men lớn nhất do tĩnh tải với mô men lớn nhất 
đo toàn bộ tải trọng dọc trục 
9 Góc nghiêng của ứng suất nén xiên với trục dọc của đầm hoặc cột 
Š, Hệ số mô men lớn nhất khi có lác lư 
ẵ Hệ số mô men lớn nhất khi không lắc lư ` 
E Chịu kéo trong bê tông l 
Ey Chịu kéo trong cốt thép 
Lọ | Hệ số giảm tải 
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1V-1. TỔ HỢP TẢI TRỌNG THIẾT KẾ 


Tổ hợp tải trọng thiết kế được xác định theo các tải trọng cho trước của kết cấu 
cần được kiểm tra. Có nhiều loại tải trọng quy định khác nhau trong quy trình thiết 
kế hơn là số tổ hợp tải rọng được dùng mặc định. Do vậy người sử dụng phải tự 
kiểm tra đầy đủ theo các tải trọng và tổ hợp tải trọng quy định. 

Có 6 loại tĩnh tải: tĩnh tải của các thành phần cấu kiện và tiếp giáp bởi kết cấu 
bên ngoài (DC), tĩnh tải đo kéo xuống (DD - downdrag), tĩnh tải lớp phủ mật và 
phụ kiện (DW), áp lực ngang của đất (ES). Mỗi loại tĩnh tải yêu cầu một hệ số tải 
trọng riêng biệt. 

Có 6 loại hoạt tải: tải trọng xe chạy (LL), tải trọng động cho phép, tải trọng ly 
tâm xe chạy (CE), tải trọng phanh xe (BR), tải trọng bộ hành (PL), vượt tải do hoạt 
tải (LS). Tất cả các tải trọng đó cùng một hệ số nên không cần tính riêng biệt. 

Nếu kết cấu chịu tĩnh tải (DL), hoạt tải (LL), lực gió (WL) và động đất (EL), 
việc xem xét lực gió và động đất sẽ theo cả 2 chiều, các tổ hợp tải trọng mặc định 
được xem xét như sau theo Cường độ và trạng thái Cực hạn (AASHTO 3.4.1). 


15DL (Cường độ- IV) 
1.25 DL + 125LL (Cường độ- I) 
0,9DL + 1,4WL (Cường độ- HI) 
1.25 DL + 1,4 WL) (Cường độ- II) 
1.25 DL + 1,35 LL + 0,40 WL (Cường độ- V) 
0.9 DL + 1,0EL (Cực hạn-I) 
125 DL +0,5 LL+ 1.0 EL) (Cực hạn-I) 


Ngoài ra cũng có các tổ hợp tải trọng mặc định trong SAP2000 khi dùng tiêu 
chuẩn AASHTO LRED 1997. Người sử dụng xác định thêm các tổ hợp tải trọng 
cần thiết khác. 

Các hệ số giảm hoạt tải có thể được áp dụng cho các thành phần hoạt tải theo 
từng phân tố để làm giảm thành phần hoạt tải tập trung. 


IV-2. CÁC HỆ SỐ GIẢM CƯỜNG ĐỘ 


Các hệ số giảm cường độ, ọ, được áp dụng cho các cường độ danh định nhận 
được khi thiết kế một cấu kiện. Hệ số œ dùng cho chịu uốn, nén dọc trục, lực cắt và 
xoắn như sau: 


@=0,90 cho chịu uốn {AASHTO 5.5.4..2.1) 
cọ = 0,90 cho chịu kéo dọc trục (AASHTO 5.5.4..2.1) 
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@=0,90 cho chịu uốn và kéo dọc trục (AASHTO 5.5.4..2.1) 
@=0,90 cho chịu cát và xoắn (AASHTO 5.5.4..2.1) 
@ =0,75 chỉ chịu nến đọc trục, hoặc chịu 
nén đọc trục và chịu uốn (AASHTO 5.5.4..2.1) 
œ =0,50 chỉ chịu nén đọc trục, hoặc chịu nén 
dọc trục và uốn trong vùng động dất 3 và 4 (AASHTO 5.5.4..2.3, 
AASHTO 5.10,11.4.1b) 
Trị số @ bao gồm nén dọc trục và uốn thay đổi từ 0,75 đến 0,90 dựa trên tải 
trọng đọc trục. Theo trị số thấp của tải trọng dọc trục, trị số @ tăng tuyến tính từ 
0,75 tới 0,90 trong khi tải trọng đọc trục giảm từ 0,1 f `A, tới zero (AASHTO 
5.5.4.2.1). Để thiết kế trong vùng động đất 3 và 4, trị số @ bao gồm nén dọc trục và 
uốn thay đổi từ 0,5 tới 0,9 tuỳ theo tải trọng dọc trục. Theo trị số thấp của tải trọng 
đọc trục, trị số ¿ tăng tuyến tính từ 0,5 tới 0,9 trong khi tải trọng dọc trục giảm từ 
0.2 fA, tới zero (AASHTO 5.I0,11.4.1b). Trường hợp bao gồm kéo dọc trục, @ 
thường bằng 0,9 (AASHTO 5.5.4.2. 1). 


IV-3. THIẾT KẾ CỘT 


Không dịch ở đây. 


1V-4. THIẾT KẾ DẦM 


Khi thiết kế dầm bê tông, SAP2000 tính toán và cho biết diện tích cốt thép cần 
thiết cho chịu uốn và chịu cắt, trên cơ sở mô men uốn, lực cắt trên đầm sinh ra do 
các tổ hợp tải trọng và các yếu tố khác, được mô tá sau đây. Cốt thép yêu cầu được 
kiểm tra/ thiết kế theo một số mặt cắt xác định dọc dầm. 


Tất cả các dầm chỉ được thiết kế theo phương chịu uốn và chịu cát chính. Tác 
động của lực dọc trục, hướng uốn phụ, và chịu xoắn có thể có trong dầm phải do 
người sử dụng tự tính lấy. 

Trình tự thiết kế dầm bao gồm các bước sau: 

- Thiết kế cốt thép chịu uốn trong dầm 

- Thiết kế cốt thép chịu cắt trong đầm 

1. Thiết kế cốt thép chịu uốn trong dầm 


Cốt thép phía trên và đáy dầm chịu uốn được thiết kế/ kiểm tra theo các mặt cắt 
dọc nhịp đầm. Khi thiết kế cốt thép chịu uốn cho mô men chính với đầm riêng biệt 
theo mặt cắt xác định, các bước tính toán như sau: 
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- Xác định mô men lớn nhất 
- Xác định diện tích cốt thép 


a) Xác định mô men 


Khi thiết kế cốt thép chịu uốn của một kết cấu dầm bê tông, trị số mô men theo mỗi 
tổ hợp tải trọng ở một mặt cắt xác định tính được theo các trường hợp đặt tải khác nhau 
với các hệ số tải trọng tương ứng. Mặt cắt dầm được thiết kế theo mô men dương lớn 
nhất M,` và mô men âm lớn nhất M.- tính được theo tất cả các tổ hợp tải trọng. - 

Mô men âm do cốt thép phía trên chịu. Trường hợp này dầm thường được thiết 
kế theo mặt cắt hình chữ nhật. Mô men dương do cốt thép phía dưới chịu. Trường 
hợp này dầm có thể thiết kế theo mặt cắt chữ nhật hoặc chữ T 


b) Xác định cốt thép chịu uốn yêu cầu 


Trong quá trình thiết kế cốt thép chịu uốn, chương trình tính cả cốt thép chịu 
kéo và chịu nén. Cốt thép chịu nén được cộng thêm khi mô men thiết kế vượt quá 
sức chịu mô men lớn nhất của mặt cắt chí có một loại cốt thép chịu kéo. Người thiết 
kế có thể tránh dùng cốt thép chịu nén bằng cách tăng chiều cao có hiệu, chiều rộng 
của dầm, hoặc tăng mác bê tông. 

Trình tự thiết kế dựa trên sơ đổ phân bố ứng suất đơn giản trên hình chữ nhật 
như đã thể hiện trên hình ïV-3 (AASHTO 5.7). Hơn nữa, giả định rằng chiều cao 
lớn nhất phần chịu nén bằng 0,42d (AASHTO 5.7.3.3.1). Khi dùng mô men vượt 
quá khả năng chịu mô men của dầm trong điều kiện giới hạn này, diện tích cốt thép 
chịu nén được tính với giả định rằng phần mô men lớn hơn sẽ do cốt thép chịu nén 
và cộng thêm cốt thép chịu kéo. 

Khi thiết kế cốt thép đầm chịu uốn, các giới hạn sau tu được dùng với cường độ cốt 
thép chịu kéo và cường độ bê tông chịu nén: 


f,` < LÔ ksi (AASHTO 5.1, 5.4.2.1) 
f¿< 75 ksi (AASHTO 5.4.3.1) 
Trình tự thiết kế trong SAP2000 cho cả hai trường hợp mặt cắt hình chữ nhật và 
có cánh (như dầm chữ L và chữ T) được tóm tắt sau đây. Tất cả các dầm được thiết 
kế chỉ theo hướng chịu uốn và chịu cắt chính. 
- Thiết kế dâm chữ nhật 


Khi thiết kế theo mô men âm hoặc dương, M,„ (tức là tính cốt thép ở trên hoặc 
dưới đâm) chiều cao phần chịu nén tính theo a (xem hình IV-3): 


[M] 
0,85f/eb 


€ 


a=d~,ld°— (AASHTO 5.7.2.1) 
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Trong đó, @ = 0,90 (AASHTO 5.5.4.2.1) như trên. Các trị số , và c, tính 
như sau: 


8, =0,85- 0,05 [`4], 0,65<,< 0,85 (AASHTO 5.7.2.2) 


Ề 87 
tựa SẼ, q_ đ (AASHTO 5.7.2.1) 
s.E, + £ 87+ ty 








Chiều cao cho phép lớn nhất phần chịu nén theo công thức: 


a„„= min [ Ð, c„, 0,42 d] (AASHTO 5.7.2.2, 5.7.3.3. 1) 
- Nếu a< a„„ (AASHTO 5.7.3.3.1), diện tích cốt thép kéo là: 
=~=. 
@f,(d~a/2) 


Cốt thép này đặt ở đáy dầm nếu mô men M, dương, hoặc ở đỉnh dầm nếu M, 
là âm. 


- Nếu a > a„„ (AASHTO 5.7.3.3.1), cần có cốt thép chịu nén (ACI 10,3.3) và 
được tính như sau: 


+ Lực nén chỉ phát sinh trong bê tông là: 


C=0,85 f,"ba,„„„ và (AASHTO 5.7.2.2) 
Sức chống mô men do bê tông chịu nén và cốt thép chịu kéo ở đáy là: 


M,, = C(d~ a„„, /2 )@ 


e=0003 0,85F, 


72⁄Z4⁄4-+ 


Z//IMERPAB 


Lất 


>4 


()) Cất ngang dám (i) Biểu đồ ứng suất (ii) Biểu đồ ứng suất nén 











Hình IV-3: Thiết kế mặt cắt dâm chữ nhật 


+ Sức chống mò men do cốt thép chịu nén và cốt thép chịu kéo là: 


M,=M, - Mu, 
+ Do vậy cốt thép chịu nén yêu cầu được tính là: 
, Mụ, 


s 


_ đ;~f?(d~d)e 


[=-s] 


Trong đó: ft =0,003E, ——— (AASHTO 5.7.2.1) 
c 
+ Cốt thép chịu kéo yêu cầu để cân bằng chịu nén trong bê tônglà: 
An = Mu, 


IC —8max /2)0 
và cốt thép chịu kéo để cân bằng cốt thép chịu nén là: 
c Mụ\, 
f (dd) 


x2 


+ Như vậy, tổng cốt thép chịu kéo, A, = Á,¡ + A ¿, và tổng cốt thép chịu nén là A .*. 

A, được đặt ở đáy và A,* được đặt ở đỉnh dầm nếu M, là dương, ngược lại nếu 
mômen M, là Am. 

- Thiết kế dầm chữT 

() Cánh đầm chịu mô men âm 


Khi thiết kế theo mô men âm, M,„ (tức là cốt thép đặt trên đỉnh đầm), tính toán diện 
tích cốt thép chính xác tương tự như trén, tức là, số liệu không có dầm T được dùng. 


(¡) Cánh dầm chịu mô men dương 
Nếu M, >0, chiều cao phần chịu nén là: (xem Hình IV-4) 


a=d- l- — (AASHTO 5.7.2.1) 
,921,00r 


Trong đó  = 0,90 (AASHTO 5.5.4.2.) như trên và theo phương trình. B, và c„ 
được tính như sau: 
B, = 0.85-0,05(f'—4), 0,65 <B,< 0,85 (AASHTO 5.7.2.1) 
__ 87 
57+ 





b (AASHTO 5.7.2.1) 


Chiều cao lớn nhất cho phép vùng chịu nén tính theo công thức: 


ma„ = min [Ö, c,,0,42d] (AASHTO 5.7.2.2, 5.7.3.3.1) 
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- Nếu a < B,d, (AASHTO 5.7.3.2.2), trình tự tính A, như với tiết diện chữ nhật đã 
nêu ở trên. Tuy vậy, trong trường hợp này b, được coi như bể rộng dầm. Hoặc là cốt 
thép chịu nén tuỳ thuộc trị SỐ â > Anyv. 


- Nếu a > B, d, (AASHTO 5.7.3.2.2), tính toán À, được chia thành 2 phần. Phân 
thứ nhất theo cân bằng lực nén ở cánh dầm, C,, và phần thứ hai theo cân bằng lực 
nén ở thân dầm, C.„„ như đã thể hiện trên hình [V-4. 


C,=0,85f° (b;— b„) B,d, (AASHTO 5.7.3.2.2) 
Do đó, A¡ = C/f, và thành phần M, do cánh dầm chịu là: 


Mụ = C.(d-=B,d/2)ø 


Như vậy, để cân bằng kéo-nén chịu mô men M,„ mô men do thân dầm chịu được 
tính theo công thức: 


M,„ = M,— Mụ 


lưrmz——rT d | e=0.003 | 0,86f, | 0.85f, 
T 


ì 








() Cát ngang dầm (i) Biểu đồ ứng suất (ii) Biểu đồ ứng suất nén) 


Hình IV-4: Thiết kế dâm chữ T 
Thân dầm hình chữ nhật có kích thước b,, và đ, chiều cao thiết kế phần chịu nén 
là hình chữ nhật: 


2M, 


a=d- ld-———— 
0,85f/@b, 


+ Nếu a, < a„„„ (AASHTO 5.7.3.3.1), diện tích cốt thép chịu kéo là: 
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@fy(d—a, /2) 

A =AintA¿ 
Cốt thép này được đặt ở đáy đầm chữ T 
+ Nếu a, > a„„„ (AASHTO 5.7.3.3.1), cần có cốt thép chịu nén được tính như sau: 
- Lực nén chỉ riêng bê tông thân dầm chịu là: 

C =0,851, bám, (AASHTO 5.7.2.2) 
- Do đó, sức chịu mô men do thân dầm bê tông và cốt thép chịu kéo là: 

Mụ, = C(d— a,„/2)0 


sức chịu mô men do cốt thép chịu nén và chịu kéo là: 


M,,= Mu„- Mụ, 
- Do đó, cốt thép chịu nén được tính theo công thức: 
= —— h — 
` Œ@-œfXd-d')@ 
ý : Íc -đ] 
Trong đó: £ =0,003E, ——— SÍ, (AASHTO 5.7.2.1) 
c 
- Cốt thép chịu kéo để cân bằng chịu nén trong bê tông thân dầm là : 
A = M¿. 


tu(d ~ max /2)0 
và cốt thép chịu kéo để cân bàng cốt thép chịu nén là: 
A4 = _ - 
*Ẻˆ T(d~d)@ 
- Tổng số cốt thép chịu kéo, À, = Á¿¡ + À¿ + Á., Và tổng số cốt thép chịu nén 
A'". A, đặt ở đầy dầm, A,` đặt ở đính dầm. 
- Cốt thép chịu kéo tối thiểu và tối đa 
Cốt thép chịu kéo khi uốn theo nhiệt độ tối thiểu và bề tông co ngót trong tiết 
điện chữ nhật là: 


A„ >min = và 0601,4 (AASHTO 5.10,8.2) 
v 


hoặc cốt thép chịu kéo khi uốn tối thiểu để tránh bị hư hỏng sớm do chịu uốn trong 
tiết diện chữ nhật là: 
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0,03£ 
K: k b„d và 


v 


An] (AASHTO 5.7.3.3.2) 





A,>mm 


hoặc giới hạn trên của 0,04 lần diện tích toàn bộ thân dầm với toàn bệ cốt thép chịu 
kéo và chịu nén, yêu cầu như sau: 


A, < 0/04 bd dầm chữ nhật 
< 004b.d dảm chữT 

Av' < 0/04bd đầm chữ nhật 
< 004b,d đầm chữT 


2. Thiết kế cốt thép chịu cắt của dầm 

Cốt thép chịu cắt của dầm được thiết kế theo mỗi số hiệu tổ hợp tải trọng do 
người thiết kế xác định tại các mặt cắt đọc đầm. Khi thiết kế cốt thép chịu cắt cho 
một đoạn dầm theo một thành phần tổ hợp tải trọng tại một vị trí xác định, theo lực 
cắt chính của dầm, bao gồm các bước sau: 

- Xác định trị số các lực tác dụng lên mặt cắt, M, và Vụ. Lưu ý rằng M, cần 
thiết để tính v, . 

- Xác định ứng suất cắt, v,. do riêng bê tông chịu 

- Xác định cốt thép yêu cầu trong điều kiện cân bằng kếo-nén 

Theo sức chống mô men trong vùng động đất 3 và 4, lực cắt thiết kế của dầm 
cũng dựa trên khả năng vượt quá sức chịu mô men có thể có của cáứ kiện, cộng 
thêm hệ số mô men (AASHTO 3.10,9.4.3). 

Sau đây mô tả chỉ tiết cách tính toán, tương ứng với các chỉ dẫn trên. 

a) Xác định lực cắt và mô men 


- Khi thiết kế cốt thép chịu cắt của dầm của một kết cấu bê tông chịu mô men 
trong Vùng động đất 1 và 2, lực cất và mô men cho một thành phần tổ hợp tải 
trọng tại một đoạn dầm được xác định theo trị số lực cắt và mô men liên quan đến 
tổ hợp tải trọng tương íng. 

- Khi thiết kế lực cắt của kết cấu bê tông chịu mô men trong Vùng động 
đất 3 và 4 (thiết kế động đất), tiếp theo cần kiểm tra thêm yêu cầu khả năng 
chịu mô men của kết cấu trong Vùng 1 và 2. Khi thiết kế sức chịu mô men của 
kết cấn bê tông trong vùng 3 và 4, lực cắt thiết kế trong một dầm, Vụ, cũng tính 
toán từ khả năng vượt quá sức chịu mô men (AASHTO 3.10,9.4.3). Thiết kế lực cắt 
Vu như sau: 


Vu=Vy+ Vụu, (AASHTO 3.10,9.4.3) 
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Trong đó V, là lực cắt có được theo tính toán vượt cường độ mô men cực hạn tại 2 
đầu đầm tác th theo chiều ngược nhau. Do đó, V, là lớn nhất của Vụ và Vạø, trong đó 


Mi+M? 
Vi =——= 
L 
M†+M; 
Minh 


Trong đó 


ï, Mỹ = khả năng chịu mô men dương và âm tại đầu 1, có được bởi nhân sức 
chịu danh định với 1.3, 


M†,Mj = khả năng chịu mô men đương và âm tại đầu Ï, có được bởi nhân sức 
chịu đanh định với 1.3, và 


L - Nhịp nh không của dầm. 
Vụ„, là sức chịu lực cắt từ các tải trọng phân bố trong dâm. Chỉ tiết xem bảng IV-2. 
b) Xác định sức chịu lực cắt của bê tông 
Có trị số lực thiết kế M, và V,, sức chịu lực cắt của riêng bê tông, v„, được tính 
như sau: 
v, =0,03168./f; (AASHTO 5.8.3.3) 


Trong đó, là hệ số cho biết khả năng nứt chéo của bê tông do chuyền lực kéo. Đó 
là một hàm số của điều kiện ứng suất và trị số gần đúng là 2.0 (AASHTO 5.8.3.4.1). Trị 
số đó được tính theo AASHTO Bảng 5.8.3.4.2-1 qua một trình tự lập lại. 


c) Xác định cốt thép chịu cắt yêu câu 
- Ứng suất cắt trung bình tính cho tiết diện chữ nhật là: 
V 


W 


b„d 





Theo các loại mặt cát khác b„d được thay bằng A.„„, diện tích chịu cắt thể hiện 
trên hình IV-2. 


- Ứng suất cắt trung bình, v, bị giới hạn bởi trị số lớn nhất, v„„„, được tính là: 
vạ„„=0,25f (AASHTO 5.8.3.3) 

- Cốt thép chịu cắt trên một đơn vị khoảng cách được tính như sau: 

Nếu v<o(v/2), 


—==0 (AASHTO 5.8.2.4) 


hoặc là nếu @(v/2)<v<@ (v,+0,0316 ./f cotÐ). 
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Ay _ 0/0316 by, 
§ lên 
hoặc là nếu @(v,+ 0/0316 /f- cotÔ) < v < @y, 
Ay _Œ-0@v,)by„ 
§ @Ÿyn cot8 


(AASHTO 5.8.2.5) 


max 


(AASHITO 5.8.3.3) 


hoặc là nếu v > v„„„ xác định là không đạt yêu cầu (AASHTO 5.8.3.3) 

Ở đây 6 là góc nghiêng của ứng suất nén theo phương chéo. Đó là một hàm số 
của điều kiện ứng suất và có giá trị gần đúng là 45 độ (AASHTO 5.8.3.4.I). Được 
tính theo AASHTO Bảng 5.8.3.4.2-1) bằng phương pháp lập lại. Ở đây mặc định trị 
số giảm cường độ ọ_= 0,90 (AASHTO 5.5.4.2.1) 


Trị số giới hạn f„ là 60 ksi cho mọi kết cấu 


lụ < 60ksi (AASHTO 5.8.2.8) 
Trị số giới hạn f,' là 10 ksi cho mợi vùng động đất 
f“ < I0ksi (AASHTO 5.1, 5.4.2.1) 


Tất cả trị số lớn nhất A,⁄s, nhận được từ môi tổ hợp tải trọng, được đưa ra 
theo hướng chính và phụ đọc cột với việc kiểm tra lực cắt và liên quan đến số tổ. . 
hợp tải trọng. 

Yêu cầu cốt thép chịu cắt của đầm do chương trình đưa ra chỉ thuần tuý dựa trên 
các điều kiện nêu trên. Bất kỳ yêu cầu cốt đai tối thiểu nào khác để thoả mãn 
khoảng cách/ hoặc thể tích lắp đặt phải do người sử dụng tự xác định. 


Bảng IV-2. Các thông số thiết kế 










Loại Kết cấu chịu mömen Kết cấu chịu mô men vùng 3 và 4 
kiểm tra/th, kế | Vùng 1 và 2 (không động đất) (có động đất) 


3 
@ khí chịu nén {|  = 0.75 nếu P, > 0.10 {` @=0.50. nếu P„ > 0.20 f.° 


Kiểm tra cột | Số tổ hợp tải rrọng quy định 
(tương tác) 





















Số tổ hợp tải trọng quy định 


Thiết kế cột | Số tổ hợp tải trọng quy định | Số tổ hợp tải trọng quy định 
(tương tác) 0,135 f,`/fy < p< 0.08 00L<p<0.06 





Số tổ hợp tải trọng quy định Số tổ hợp tải trọng quy định : : 
Khả năng chịu cắt của cột (V,) với hệ số 
Lực cátcột | v, =0,08168./fˆ vượt tái 13 











vụ =0.03168Jƒf nếu Pụ > 0.1 fe'A, 





227 


TU 


Vùng 2 


Lực cắt cột 






Thiết kế đầm 
(chịu uốn) 


LU- 


011 
Cốt thép chịu 


uốn tối thiểu _ 


"Thể tích cốt thép chịu cát tối 
thiểu trong khớp dẻo chỉ cho 


Số tổ hợp tải trọng quy định 


Tc— b„d, 000155, 


=] 


d 


+ 


Bảng IV-2 (tiếp theo) 
3 





EU >0 trừkhi 
0.1A, 


vự =0.0316B./f- 
có quy định khác. 
“Thể tích cốt thép chịu cắt tối thiểu trong 
khớp đẻo chỉ cho Vùng 3 và 4 

Số tổ hợp tải trọng quy định 

o<0025 


3 VỀ p> 2 
ty f 


p> 


T- bạủ 0,0015b,„d 


y 


—Í 











IS 
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ủ f4 f4 
của dầm 0,03 13 Š qui) 0.03 T Š ngu) 
Số tổ hợp tải trọng quy định _ | Số tổ hợp tải trọng quy định 
Thiết kế dải : š 
KẾ KEỎNH lụ =0031608ƒF Khả năng chịu cất của dảm (V,) với hệ 
(chịu cắt) * C _ Ỹ 
Số vượt tải 1.3 








vy =0.03168.ff 
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